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_ REM % 


1'DENTIF | CATION 

PRODUCT CODE: MAINDEC-11-D20UV-B-D 

PRODUCT NAME: DUVi1 OFFLINE COMBINED TESTS 
RELEASE DATE: NOV. 1977 

MAINTAINER : DIAGNOSTICS 


_ REM 4 


COPYRIGHT (C) 1977 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS. 


THE INFORMATION IN ‘HIS DOCUMENT 1S SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY DIGITAL 
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.REM & 
GENERAL DESCRIPTION 


THIS DIAGNOSTIC CAN CHAIN 16 DUV11'S. THIS MEANS THAT 

16 DEVICES CAN BE SEQUENTIALLY EXERCISED. THE DIAGNOSTIC 
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE, 

AND CONTINUES EXERCISING ALL DEVICES IN THIS FASHION UNTIL 


HAL TED. 
x 
REM ¥ 
1. THE ODUV11 OFFLINE COMBINED TESTS VERIFY THAT THE TRANSMITTER 
AND RECEIVER CAN TALK THRU THE EXTERNAL MODEM CABLE 
PROVIDING THAT THE H315 CONNECTOR IS ON . 
_ REM x 


ro 


REQUIREMENTS 

PDOP-11/03 COMPUTER (LSI) 

DUV11 SYNCRONOUS/!SOCRONOUS OPTION 
ONE CONSOLE TELETYPE OR EQUIVALENT 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 


3. LOADING PROCEDURE 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
1S TO BE USED 


STARTING ADORESS 
FOR ABSOLUTE LOADER 


4K 017500 
8K 037500 
12K 057500 
16K 077500 
20K 117500 
24K 137500 
28K 157500 

4. STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 


NOTE: ALL SWITCHES RESIDE INTERNAL TO THE CPU AT ADDRESS 
176. THESE MAY BE SET VIA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC. 176 


NOTE: RUNNING UNDER APT-11, THERE IS A USER SWITCH REGISTER 
CALLED “SUSWR"”. IN ORDER TO BE FLEXIBLE ON THE AVAILIBILITY OF THE 
H315 CONNECTOR, ONE BIT PASSES STATUS TO APT-11. 
BIT O IN SUSWR REFLECTS THIS STATUS, A O = CONNECTOR 
PRESENT. A 1 = CONNECTOR NOT AVAILIBLE. 
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THE USER CHANGES THE CONTENTS OF THIS LOCATION 
WHEN BUILDING THE E TABLE. BY ANSWERING THE 
PROMPT “SWITCH 2”. 


AFTER PROGRAM LOAD CINITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


SWO0=1 
TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
CONLY IN SINGLE DEVICE TESTS) 
SWO1=1 
70 LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 
CW14=1 
NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW14=1 IS USED 
NOTE2: WITHOUT SWO1=1 “LOCK ON TEST" WILL DEFAULT TO TEST 1 
STARTING ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS |S 000200 
THE RETARTING ADDRESS FOR ALL TESTS IS 000200 
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
THE STARTING ADDRESS TO LOCK ON TEST IS 000200 
PROGRAM AND/OR OPERATOR ACTION 
INITIAL PROGRAM START 
4. 3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4 3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 
4 3.1.3 TYPE 2006. 
y 


. 3.1.4 PROGRAM WILL START. 


4. 3.1.5 THE PROGRAM WILL TYPE “DUV11 DZDUV-B TAPE F" (ONCE ONLY) 
4. 3.1.6 THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT 1S ABOUT 
TO START TESTING .AND THEN TESTING WILL BEGIN 

PROGRAM RESTART WITH ALL SWITCHES DOWN 

4. 3.2.1 THE PROGRAM WILL TYPE “R" AND WILL COMMENCE TESTING 
PROGRAM RESTART WITH SWOO=1 


_ REM 


SEQ 0003 
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%. 3.3. 
4. 3. 3. 
4. 3.3. 
4. 3.3. 


%. 3. 3. 


=- wer» =— 


4. 3.3.6 
FROM THE TELETYPE KEYBOARD 


INPUT 


%. 3.3. 


? 
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SET SWITCH REGISTER (LOC. 176) TO A 000001. 
TYPE 2006. 
PROGRAM WILL START. 


THE PROGRAM WILL TYPE “ 1ST DEVICE: RECEIVER CONTROL REGISTER 
ADDRESS” AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 


REGISTER ADDRESS OF THE DUV11 TO BE TESTED 
FOLLOWED BY A <CARRIAGE RETURN> 


1F AN INCORRECT ADDRESS 1S TYPED . THE PROGRAM WILL TYPE “?" 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 
THE PROGRAM WILL TYPE “VECTOR ADDRESS-" AND WAIT FOR AN 


TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE OUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED . THE PROGRAM WILL TYPE “?" 
AND WILL THEN REPEAT THE MESSAGE OF 4. 3.3.6 


THE PROGRAM WILL TYPE “ARE YOU RUNNING MULTIPLE DEVICES ?” 
(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


1F AN INCORRECT ANSUER IS GIVEN. THE PROGRAM WILL TYPE "?” 
AND WILL THEN REPEAT THe MESSAGE OF 4.3.3.8 


iF A "NO" ANSWER 1S GIVEN: JUMP TO SECTION 4. 3.3.12 
IF A “YES” ANSWER IS GIVEN: THE NEXT QUESTION IS ASKED 


THE PROGRAM WILL TYPE “LAST DEVICE: RECEIVER CONTROL 


10 
REGISTER ADDRESS-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 


11 
ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN» 


AL, 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “*" 
AND WILL THEN REPEAT THE MESSAGE OF 4. 3.3.10 
NOTE: ALL ADDRESSES SHALL BE CONTIGUOUS 


1 IF AN “OUT OF RANGE” ADDRESS IS TYPED 
1€. MORE THAN 16 (10) DEVICES AWAY (UPWARDS)..... THE 
PROGRAM WILL TYPE “OUT OF RANGE: RETYPE LAST DEVICE RXCSR ADDRESS-" 


SEQ 0004 
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4.3.3.1 


43.3.1 


AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


1.2 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 
REGISTER ADORESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “7” 
AND WILL REPEAT THE MESSAGE OF 4.3. 3.11.1 


IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS IS TYPED........... 
. SCHOOLS OUT......... THERE IS NO PROTECTION FOR THIS. 

THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 

1ST DEVICE ADDRESS). THE SAME APPLIES TO IDENTICAL ADDRESSES 

TYPED FOR FIRST AND LAST DEVICE. 

OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


12 THE PROGRAM WILL TYPE “# OF SYNC CHARS 


SELECTED (1 OR 2)-" AND WAIT FOR AN INPUT FROM THE TELETYPE 
KEYBOARD. REFER TO MANUAL FOR PROPER SWITCH SETTINGS OF 
SWITCH E55-4. 


3 TYPE IN THE APPROPRIATE ANSWER “1" OR “2" FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST 
BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?" 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.12 


4 THE PROGRAM WILL TYPE “ 1S SEC XMIT SWITCH E55-2 ON? (Y OR N)-" 
AND WRIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


¥. 3.3.16 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


4. 3.3.16 


43.3.1 


BY A <CARRIAGE RETURN>. (NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?" 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.14 


THE PROGRAM WILL TYPE “IS SEC REC SWITCH ES5-3 ON? 
(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


17 
BY A <CARRIAGE RETURN>. (NOTE: AcL MULTIPLE DEVICES MUST BE THE SAME) 


1F AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “*” 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3. 16 


18 THE PROGRAM WILL TYPE “IS OPT CLR ENABLE SWITCH 


ESS5-1 ON? (Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
9 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


SEQ 0005 
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4 3.4 


4.3.6 


4. 


4 3.3.21 


4. 3.3.22 


3. 3. 20 
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BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.18 


THE PROGRAM WILL TYPE “ARE YOU RUNNING IN MAINT. 
MODE EXTERNAL 7? AND...... DO YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? (Y OR N)-" AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SANE) 
IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?" 
AND WILL REPEAT THE MESSAGE OF 4. 3.3. 20 


THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


PROGRAM RESTART WITH SWO1=1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
++, 1T WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 


IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED.LOAD 000200. 
SELECT sWOO=1 AND ANSWER “NO” TC THE MULTIPLE DEVICE QUESTION 


AND 
SEE 


y. 


y 
y 
y 


3. 
3.4.2 

i 
3.4.4 


4. 3. 


4.1 


4.3 


4.5 


4.6 


3 

SET SWO1=1 IN SWITCH REG (LOC. 176) 
TYPE 200G 

PROGRAM WILL START. 


THE PROGRAM WILL TYPE “TEST PC-" AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE iS USED 
SINCE THERE 1S NO PROTECTION AGAINST SELECTING AN ADDRESS 
THAT 1S IN THE MIDDLE OF A TEST 


PROGRAM RESTART WITH SW14 =1 

NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
SEE NOTE IN 4.3.4 FOR MORE DETAILS 

4 3.5.1 SET SWI4=1 IN SWITCH REG (LOC. 176) 


4. 3.5.2 TYPE 2006. 


SEQ 0006 
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4. 3.5. 3 PROGRAM WILL START. 


4. 3.5.4 THE PROGRAM WILL TYPE “LOCK ON SELECTED TEST ? (Y OR N)-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF A NO ANSWER IS GIVEN: TH!S LOCK ON TEST WILL BE IGNORED 
AND THE PROGRAM WILL TYPE “R” TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST i 


4 3.5.6 IF A YES ANSWER WAS GIVEN: THE PROGRAM WILL ACT AS FOLLOWS. . 
THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED 
OR IF ANY KEY IS STRUCK ON THE TELETYPE . THE PROGRAM 
WILL FREEZE ON THE NEXT TEST UNTIL A KEY 1S STRUCK ON 
THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SWO1 =1 IT 
WILL PERFORM AS IN SECTION 4.3.4 ALLOWING ONE TO FREEZE 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176) 
SH1 


WiS =1 HALT ON ERROR 
SW14 =1 LOOP ON CURRENT TEST 
SW13 =1 INHIBIT ERROR TYPEOUT 
SW11 =1 INHIBIT ITERATIONS 
SW10 =1 ESCAPE TO NEXT TEST ON ERROR 
SWO9 =1 LOOP ON ERROR 
SWO1 =1 RESTART PROGRAM AT SELECTED TEST 
SWOO =1 RESELECT VECTOR AND CONTROL REGISTER ADRESSES 


BPARAMETERS AFTER A PROGRAM RESTART 
TO INHIBIT “END OF PASS” TYPEOUT - TURN TELETYPE OFF 


ERRORS 


ERROR HALTS (UNDER LS! ALL HALT ERRORS RETURN CONTROL T0 0.0.T ? 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


PC+2 = ERROR PC 
WHERE PC +2 1S THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 


REFER TO THE ABOVE “HLT” IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


PC +2 = REGISTER ERROR PC 

REGISTER EXPECTED ACTUAL 

16XXXX YYYYYY 222222 

WHERE .16XXXX 1S THE ADDRESS OF THE FAILING DEVICE REGISTER 


WHERE YYYYYY 1S THE EXPECTED CONTENTS OF THAT REGISTER 


SEQ 0007 


eS 


-—— Ce YHF 


DZ2DUV-B MACY11 30(1046) 21-SEP-77 09:27 PAGE 8 
O2DuUV1. M11 15-SEP-77 10:13 SEQ 0008 
WHERE 222222 1S THE ACTUAL CONTENTS OF THAT REGISTER 
6.1.3 PC +2 = RECEIVER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 
WHERE 16XXXX IS THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY |S THE EXPECTED DATA CONTENTS OF THAT REGISTER 
WHERE 222222 1S THE ACTUAL DATA CONTENTS OF THAT REGISTER 
61.4 PC #2 = TRANSMITTER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 
WHERE 16XXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 
WHERE 222222 1S THE ACTUAL CONTENTS OF THAT REGISTER 


6.1.5 ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


ERROR RECOVUCRY 


* 
to 


6.2.1 SwWiS =0 
1F THE PROGRAM IS RUN WITH SW15 =O .NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING 


6.2.2 SWi5 =1 
1F THE PROGRAM IS RUN WITH SW15 =1 .TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED .PRESS THE PROCESSOR 
CONSOLE “CONTINUE SWITCH" 


NOTE: THE PC + 2 OF THE “HLT” WILL BE DISPLAYED IN THE DATA LIGHTS 


6.2.3 ILLEGAL INTERRUPTS 
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL HALT IN 
THE TRAPCATCHER THE ADDRESS AT WHICH THE PROGRAN 
HALTS 1S 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO 
RECOVER FROM THIS ERROR. 


6.2.4 ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCNT 
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES PESPECTIVELY 
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS 


6.3 END OF PASS ROUTINE 
THIS TYPEOQUT 1S MENTIONED HERE FOR CONVENIENCE 
iT 1S IN THE FORM: 





com 
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7.3.1 
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END OF PASS TAPE Y 
16XXXX = DEVICE 


WHERE Y IS THE TAPE LOADED 

WHERE 16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS 
TC INHIBIT THIS TYPEOQUT - TURN TELETYPE OFF 
RESTRICTIONS 


MULTIPLE DEVICES 
UP TO 1€(10) DEVICES MAY BE TESTED. HOWEVER. THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE “ZERO: ACD #10, BASEIV NEXT BLOCK 
(VECTORS)” TO “ZERO: ADD #0, BASE IV". 

THEREBY THE VECTOR ADDRESSES WILL NOT BE 

UPDATED AFTER EACH PASS 


DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
FOR EACH DEVICE RUNNING UNDER TEST IE€ BIT O FOR 
DEVICE O .BIT 15 FOR DEVICE 15 

TO DISQUALIrY DEVICES 


1F DEVICE O IS TO BE DISQUALIFIED .SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEY'CE 


1F HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO BE DISQUALIFIED .. LOAD THE LOCATION OF ACTREG 
OBSERVE THE ACTIVE BITS (ACTIVE =1. NONACTIVE = 0) 

AND DEPOSIT O WHERE THOSE DEVICES ARE 10 BE DISQUALIFIED 


7.2.2.1 TO RESTART. TYPE 2006. . 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING 


* > * Seer OR . SET SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 2006 
ANSWER THE QUESTION . 1ST DEVICE ETC 
_ THE PROGRAM WILL CONTINUE WITH DEVICE 0 


72.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE THE PROGRAM 
WILL TYPEOQUT AN ERROR MESSAGE TYPE 2006. 


CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE. 

LOCATION “HOLD: “ MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES 
PRESENTLY “HOLD” =20 IS SUFFICIENT TIME ON AN 11/03 MACHINE 

BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


TO USE THE “KOR” TESTER . THE BRANCH AROUND THE “XOR” 


— 


SEQ 0009 
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10. 
11 
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CODE MUST BE PATCHED TO A “NOP” (SEE LISTINGS FOR DETAILS) 


DEFAULT PARAMETERS. 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- RxCSR: 160010 


VECTOR ADDRESS- DURIV: 770 
ARE YOU RUNNING MULTIPLE DEVICES ?- NO MULTD: O 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- LASTADD: 0 
# OF SYNC CHARS SELECTED - 2 SYNCNO: 377 

1S SEC XMIT SWITCH ES5-2 ON7- YES SEXMIT. 377 

1S SEC REC SWITCH ES5-3 ON?- YES SEREC: 377 


1S OPT CLR ENABLE SWITCH ESS-1 ON?- YES OPTCLR 377 


DO YOU HAVE THE EXTERNAL MODEN BYPASS JUMPER 
CONNECTOR ON (H315)- YES JMRBY 377 


PROGRAM DESCRIPTION 


4 
REM 
THIS PROGRAM PERFORMS THE OFFLINE COMBINED (TRANSMITTER & RECEIVER) 
CABLE TESTING OF THE DEVICE 
SEE LISTING FOR DETAILS » 
_ REM 


FLOW CHARTS RECE'VER FLOW. TRANSMITTER FLOW, TRANSMITTER & RECEIVER FLOW 
LISTINGS 


SEQ 0010 
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536 000001 STN=1 
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601106 


000011 
000012 
000015 
000206 
177776 


177774 
177772 
177570 
177570 


000000 
000001 
000002 
000003 
oco004 
000005 
000006 
000007 
000006 
009007 


000000 
0090040 
000100 
000140 
000200 
000240 
000300 
000340 


100000 
040000 


nM 1 
APT COMMUNICATIONS ROUTINE 
. ENABLE ABS 


*DUV11 DZ2DUV-B TAPE F 
+COPYRIGHT 1977, DIGITAL EQUIPMENT CORP.. MAYNARD. MASS. 01754 


; STARTING PROCEDURE 
; TYPE 200G 

;PROGRAM WILL TYPE “DUV11 DZDUV-B TAPE F ™ 

;PROGRAM WILL TYPE “R" TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS, PROGRAM WILL TYPE “END OF PASS TAPE F” 
;AND THEN RESUME TESTING 


.SBTTL BASIC DEFINITIONS 
;XINITIAL ADDRESS OF THE STACK POINTER *&% 1100 X¥% 
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STACK= 1100 
. EQUIV EMT, ERROR +>BASIC DEFINITION OF ERROR CALL 
- EQUIV 10T, SCOPE >;BASIC DEFINITION OF SCOPE CALL 


uaa “anita DEFINITIONS 
HT= ++CODE FOR HORIZONTAL TAB 


LF= 12 ++CODE FOR LINE FEED 

CR= 15 +;CODE FOR CARRIAGE RETURN 

CRLF= 200 +>CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ++ PROCESSOR STATUS WORD 

. EQUIV PS, PSH ‘ 

STKLMT= 177774 +sSTACK LIMIT REGISTER 

PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 +; HARDWARE SWITCH REGISTER 

DDISP= 177570 ++ HARDWARE DISPLAY REGISTER 


a PURPOSE REGISTER DEFINITIONS 
RO= +;GENERAL REGISTER 


Ri= “1 7;GENERAL REGISTER 
R2= %2 ++ GENERAL REGISTER 
R3= %3 >;+GENERAL REGISTER 
R4= %4 ;;GENERAL REGISTER 
R5= %5 ?,GENERAL REGISTER 
R6= %6 ;;+GENERAL REGISTER 
R7= %7 ;;,GENERAL REGISTER 
SP= %6 ++ STACK POINTER 
PC= %7 ;;PROGRAM COUNTER 
;HPRIORITY LEVEL DEFINITIONS 

PRO= 0 7-PRIORITY LEVEL O 
PRi= 40 +-PRIORITY LEVEL 1 
PRZ= 100 +-PRIORITY LEVEL 2 
PR3= 140 ;-PRIORITY LEVEL 3 
PR4= 200 ;-PRIORITY LEVEL 4 
PRS= 240 s-PRIORITY LEVEL 5 
PR6= 300 + PRIORITY LEVEL 6 
PR7= 340 ;-PRIORITY LEVEL 7 


;R"SWITCH REGISTER" SWITCH DEFINITIONS 
SWi5= 100000 
SWi4= 40000 


SEQ 0012 
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020000 


000001 


100000 
040000 


000001 


oco0004 
000010 
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“SWi3= 
SWi2= 
SWii= 
SW1i0= 
SWO9= 
SWO8= 


15 


BASIC DEFINITIONS 


20000 
10000 


SWO9, SWI 
SHO8, SWS 
SWO7, SW7 
SWO6. SW6 
SWO5, SWS 
SWO4, SW4 
SWO3, SW3 
SWO2, SW2 
SWO1, SW1 
SWOO, SWO 


;XDATA BIT — (BITOO TO BIT15) 


EQUIV 


; ¥BASIC. 
ERRVEC= 
RESVEC= 


BITO2,B1T2 
BiTO1,B1T1 
B1TOO. BITO 


"CPU" TRAP VECTOR ADDRESSES 


= 


10 


++ TIME OUT AND OTHER ERRORS _ 


*;RESERVED AND ILLEGAL INSTRUCTI 


ONS 


SEQ 0013 
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000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
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TRIVEC= 
BPTVEC= 
1OTVEC= 
PWRVEC= 
EMTVEC= 


TRAPVEC= 


TKVEC= 
TPVEC= 


PIRQVEC= 


16 
BASIC DEFINITIONS 
TBITVEC= 


14 ss "T* BIT 

14 ++ TRACE TRAP 

14 >;BREAKPOINT TRAP (BPT) 

20 ++ INPUT/OUTPUT TRAP (IOT) x¥SCOPEXx 
24 +; POWER FAIL 

30 +; EMULATOR TRAP (EMT) XXERRORXX 

34 7; "TRAP" TRAP 

60 ++ TTY KEYBOARD VECTOR 

64 +; TTY PRINTER VECTOR 


240 ++PROGRAM INTERRUPT REQUEST VECTOR 





SEQ 0014 
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680 STANDARD INTERRUPT VECTORS 
682 
683 000174 2174 
684 000174 900000 DISPREG: 0 
685 000176 000000 SWREG: 0 
686 000200 - 2200 
687 000200 000167 0017%6 JMP START ;GO TO START OF PROGRAM 
689 
690 
691 001100 21100 
692 001100 ooccoO WORD 0 
693 001102 177570 LIGHTS: 177570 
694 
695 
696 
697 ;PROGRAM CONTROL PARAMETERS 
699 001104 900000 RETURN: 0 
700 001106 co0000 NEXT: 0 ; ADDRESS OF NEXT TEST TO BE EXECUTED 
701 001110 000000 LOCK: 0 ADDRESS FOR LOCK ON CURRENT DATA 
702 001112 000000 PASCNT: 0 ; ADDRESS CONTAINING PASS COUNT 
703 001114 000000 ERRCNT: 0 ;ERROR COUNT 
704 001116 900000 SAVSP: 0 STACK POINTER STORAGE 
706 ;PROGRAN VARIABLES 
70 
708 001120 000020 HOLD: 20 ; TEMPORARY STORAGE=DELAY TIME FOR CABLES 
709 001122 000000 SHIFT: 0 ; TEMPORARY STORAGE= # OF SHIFTS PER CHAR 
710 001124 900000 COUNT: 9 ; TEMPORARY STORAGE= # OF TIMES A CHAR WILL BE SENT 
711 001126 000000 SAVPC: 0 ;PROGRAM COUNTER STORAGE 
712 001130 000000 HLDO: 0 
713 001132 000000 HLO1: 0 
714 001134 000000 HLD2: 0 
715 001136 o0v000 HLD3: 0 
716 001140 O00000 HLD¥: 0 
717 001142 00000 HLD5: 0 
718 001144 00000 HLD6: 0 
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001146 
001147 
001150 
001151 
001152 
001153 


001154 
001156 
001160 
001162 
001164 
001166 


001170 


001172 


001173 
001174 
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000000 
000000 
ooc000 
000000 
000000 
000000 


000000 


001176 
001400 
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0 2 sore Ee: 


8 

BASIC DEFINITIONS SEQ 0016 
;PROGRAM CONVERSATIONAL PARAMETERS 

SYNCNO: .BYTE 377 *# OF SYNC CHARS REQ'D FOR SYNC’ ZATION 


SEXMIT: .BYTE 377 SEC XMIT JUMPER “IN 
SEREC: .BYTE 377 SEC REC JUMPER “IN 
OPTCLR: .BYTE 377 OPTIONAL JUMPER UR "tN" 


MULTO: .BYTE OQ *+NO MULTIPLE DEVICE FLAG 
mais .BYTE 377 EXTERNAL MODEM BYPASS JUMPER “IN” 
; N 


+PROGRAN MULTIPLE phos tt PARAMETERS 


BASEADD: 0 CONTROLLED 1ST DEVICE ADDR 
KEEPADD: 0 SAVED 1ST DEVICE ADDR 

LASTADD: 0 + LAST DEVICE RXCSR ADOR 

BASE IV: 0 +PROG CONTROLLED IV 

KEEP IV: 0 ; SAVED INTR VECTOR 

ACTREG: 0 ACTIVE REGISTER ...MODIFY THIS 


+LOCATION TO DISQUALIFY OR QUALIFY 
;DEVICES (1= RUN,,,.O= DON'T RUN) 
ROTADO: 0 ROTATING POINTER FOR ACTREG.. POINTS 
;TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 


>PROGRAM CONTROL FLAGS 


INIFLG: . BYTE 0 ;PROGRAM INITIALIZATION FLAG 
STFLG: . BYTE 0 ; TEST START FLAG 

LOKFLG: . BYTE 0 ;LOCK ON CURRENT TEST FLAG 
EVEN 

=1400 
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750 

751 

752 

753 

754 

755 005746 
756 005726 
757 010046 
758 012600 
759 024646 
760 022626 
761 

762 

763 100000 
764 040000 
765 020000 
766 010000 
767 004000 
768 002000 
769 001000 
770 c00400 
771 000200 
772 000100 
773 000040 
774 000020 
775 000010 
776 000004 
777 000002 
778 000001 
779 

780 100000 
781 040000 
782 020000 
783 010000 
784 

785 001000 
786 000400 
787 

788 030000 
789 020000 
790 000000 
791 000000 
792 002090 
793 004000 
794 006000 
795 000000 
796 001000 
797 001400 
798 

799 100000 
800 040000 
801 020000 
802 002000 
803 000400 
804 000200 


805 000100 


21-SEP-77 09:27 PAGE 1 
BASIC DEFINITIONS 


+ INSTRUCTION DEFINITIONS 


PUSH1SP=5746 +DECREMENT PROCESSOR STACK 1 
> INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO= 10046 +SAVE RO ON STACK =MOV RO, -(SP) 

sRESTORE RO FROM STACK =MOV (SP)+,R0 


POP 1SP=5726 
POPRO=12600 


=TST -(SP) 
=TST (SP)+ 


PUSHZ2SP=24646 ;DECREMENT STACK TWICE =CMP -(SP),-(SP) 
POP 2SP=22626 + INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 


REGISTER DEFINITIONS 
>RXCSR BIT DEFINITIONS 


DSC=B1T15 +DATA SET CHANGE 
RING=B1T14 + RING 
CTS=B1T13 CLR TO SEND 


CARDET=B1T12 7; CARRIER DETECT 


RECACT=BIT11 7REC ACTIVE 
SRO=B1T10 ;SEC REC DATA 
DSR=B1IT9 ;DATA SET RDY 
STPSYN=B17T8 STRIP SYNC 
RXDONE=B1T7 *REC DONE 
RINTEN=B1T6 >REC INTR ENABLE 
OSINTE=BITS -OSC INTR ENABLE 
SYNSCH=B1T4 SYNC SEARCH 
STD=BIT3 >SEC XMIT DATA 
RTS=B1T2 REQ TO SEND 
DTR=BIT1 DATA TERM RDY 
VO10=B1TO 


RXERR=B1T15 
OVRRUN=B1T14 
FRMERR=B1T13 
PARER=B1T12 


;RXDBUF BIT DEFINITIONS 
> REC 


ERROR 
> OVERRUN 
; FRAME ERROR 
PARITY ERROR 


>PARCSR BIT DEFINITIONS 


PAREN=BIT9 
EVPAR=BIT8 


;PARITY ENABLE 
7 EVEN PARITY SENSE 


;PARCSR WROD DEFINITIONS 


SYNINT=30000 
SYNE XT=20000 
1SYMOD=0 
FIVE=0 
$1X=2000 
SEVEN=4000 

E iGHT=6000 
NOPAR=0 
ODDPAR=1000 
EVEPAR=1400 


DNA=B1T15 
MTDATA=BIT14 
CLK=BIT13 

BITW=BIT10 

MRESET=BITS 
TXDONE =B | T7 
TXINTE=B1T6 


SYNC EXTERNAL MODE 
SYNC INTERNAL MODE 
> ISOC MODE 

;WORD LENGTH 5 BITS 
;WORD LENGTH 6 BITS 
;WORD LENGTH 7 BITS 
;WORD LENGTH 8 BiTS 
+NO PARITY 

ODD PARITY 

+ EVEN PARITY 


;TXCSR BIT sondnoge > —y 


ATA NOT AVAILABLE 
; MAINT DATA 
> CLK 
>;BIT WINDOW 
;MASTER RESET 
;XMIT DONE 
;XMIT INTR ENABLE 





SEQ 0017 
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DZ20UVB. M11 31-MAY-77 09: 51 BASIC DEFINITIONS SEQ 0018 


000040 DNAINTE=B1T5S +ONA_ INTR ENAB 
000020 SEND=B1T4 + SEND 

000010 HOXEN=B1T3 + HDX/F DX 

000001 BREAK=B1T0O + BREAK 

+ TXCSR WRO DEFINITIONS 

000000 USER=0 ;USER MODE 

004000 MINT=4000 MAINT INT MODE 
010000 MEXT=10000 ;MAINT EXT MODE 
014000 SYSTST=14000 + SYSTEM TEST MODE 
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001400 
001400 
001402 
001403 
001404 
001406 
001410 
001412 
001414 
001415 
001416 
001420 
001422 
001424 
001426 
001430 
001432 
001434 
001435 
001436 
001440 
001442 
001444 
001446 
001450 
001452 
001454 
001455 
001456 
001457 
001460 


001462 
001464 
001466 
001470 


001523 


001400 
000000 
0 


000000 
000000 
000000 
000090 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
177607 

077 

015 
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000377 


COMMON TAGS 
.SBTTL COMMON TAGS 


js MEXAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA EATS 
;XTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SCMTAG: —.* +; START OF COMMON TAGS 

.W 
STSTNM: .BYTE 0 +; CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 +;CONTAINS ERROR FLAG 
SICNT: .WORD O +; CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 +; CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 +; CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 +; CONTAINS TOTAL ERRORS DETECTED 
SITEMB: BYTE O ++CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 +; CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WORD 0 +; CONTAINS ADDRESS OF ‘GOOD' DATA 
SBDADR: .WORD 0 +;CONTAINS ADDRESS OF ‘BAD' DATA 
SGDDAT: .WORD 0 +,CONTAINS ‘GOOD’ DATA 
SBDDAT: .WORD 0 ++ CONTAINS ‘BAD’ DATA 

.WORD 0 ;RESERVEOD--NOT TO BE USED 

.WORD OQ 
SAUTOB: .BYTE 0 ;;AUTOMATIC MODE INDICATOR 
SINTAG: .BYTE OQ >, INTERRUPT MODE INDICATOR 

.WORD O 


SUR: . WORD OSWR ;;ADDRESS OF SWITCH REGISTER 
DISPLAY: . WORD ODISP >;ADDRESS OF DISPLAY REGISTER 


STKS: 177560 >; TTY KBD STATUS 
STKB: 177562 +, TTY KBO BUFFER 
STPS: 177564 >; TTY PRINTER STATUS REG. ADDRESS 
STPB: 177566 +; TTY PRINTER BUFFER REG. ADDRESS 
SNULL: .BYTE 0 >; CONTAINS NULL CHARACTER FOR FILLS 
SWucs: .SvvE 2 >; CONTAINS & OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE 12 >; INSERT FILL CHARS. AFTER A “LINE FEED" 
STPFLG: .BYTE Q 7; "TERMINAL AVAILABLE” FLAG (B1T<07>=0=YES) 
SREGAD: .WORD 0 +; CONTAINS THE ADDRESS FROM 
»;WHICH (SREGO) WAS OBTAINED 
SREGO: .WORD 0 >, CONTAINS ((S$REGAD)+0) 
SREGi1: .WORD 0 >; CONTAINS ((SREGAD) +2) 
SREGZ2Z:; .WORD 0 >;CONTAINS ((SREGAD) +4) 
SREG3: .WORD 0 >,>CONTAINS ((SREGAD) +6) 
SREGY: .WORD O +;CONTAINS ((SREGAD)+10) 
SREGS: .WORD 0 7; CONTAINS ((SREGAD) +12) 
STMPO: .WORD OQ ;+USER DEFINED 
STMPi: .WORD OQ >,USER DEFINED 
STMP2: .WORD OQ +;USER DEFINED 
STMP3: .WORD 0 +; USER DEFINED 
STMPY: .WORD 0 +;USER DEFINED 
STMPS: .WORD 0 +; USER DEFINED 
STIMES: 0 >,MAX. NUMBER OF ITERATIONS 
SESCAPE: 0 >> ESCAPE ON ERROR ADDRESS 


SBELL. .ASCIZ ¢207><377><377> -; CODE FOR BELL 
SQUES: ASCII 777 +; QUESTION MARK 
SCRLF: ASCII <15> >; CARRIAGE RETURN 


———__- -- ——-- —-—- —-4 


SEQ 0019 | 


| 


Se ——— — 
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| 
DZDUVB.M11  _31-MAY-77 09: 51 COMMON TAGS SEQ 0020 | 
871 001524 000012 SLF. ASCIZ <12> ;LINE FEED 
872 SE TETTTTTITITTITIT TTT TT TTTETITTTTTTTTTTT TTT EEE 
873 “SBTTL APT MAILBOX-ETABLE 
875 j; SESUAESEAMAEESSREESESUSESSSAUSESOAAEESAAEESAAAESSANESSONAESS 
EVEN | 
877 001526 SNAIL: ;;APT MAILBOX 
878 001526 oc0000 SMSGTY: . WORD AMSGTY ;; MESSAGE TYPE CODE 
879 001530 oo0000 SFATAL: _WORD FATAL ;: FATAL ERROR NUMBER 
880 001532 o00000 STESTN: ._WORD ATESTN ;; TEST NUMBER 
881 001534 o00000 SPASS: _|WORD PASS ;:PASS COUNT 
882 001536 O00000 SDEVCT: _WORD ADEVCT ;;DEVICE COUNT | 
883 001540 oocoo0 SUNIT: |WORD UNIT ;:170 UNIT NUMBER 
sey 001542 00000 SMSGAD: _WORD AMSGAD ;; MESSAGE ADDRESS | 
885 001544 O00000 SMSGLG: _WORD AMSGLG ;;MESSAGE LENGTH 
886 001546 SE TABLE: ;; APT ENVIRONMENT TABLE 
887 001546 000 SENV: .BYTE ENV  ;; ENVIRONMENT BYTE 
888 001547 000 SENVM: BYTE AENVM ;; ENVIRONMENT MODE BITS 
889 001550 o00000 SSWREG: _WORD ASWREG ;;APT SWITCH REGISTER 
890 001552 o00000 SUSWR: |WORD AUSWR ;;USER SWITCHES 
891 001554 coo000 SCPUOP: _WORD ACPUOP ;;CPU TYPE, OPTIONS 
892 * BITS 15-11=CPU TYPE 
893 ot 11704201, 11/05=02, 11/20=03, 11740=04, 11745=05 
894 it 11/70=06, PDQ=07, Q=10 
895 ot BiT 10=REAL TIME CLOCK 
896 t BIT 9=FLOATING POINT PROCESSOR 
897 ot BIT 8=MEMORY MANAGEMENT 
898 001556 000 SMAMS1: . BYTE AMAMS1 ;;HIGH ADDRESS.M S. BYTE 
899 001557 000 SMTVP1. .BYTE AMTYP1 ;;MEM. TYPE, BLK#1 
900 it MEM. TYPE BYTE -- (HIGH BYTE) 
901 7 900 NSEC CORE=001 
902 * 300 NSEC BIPOLAR=002 
903 ik 500 NSEC MOS=003 
904 001560 o00000 SMADR1: . WORD AMADR1 ;;HIGH ADDRESS. BLK#1 
905 ik MEM. LAST ADDR. =3 BYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
906 001562 00 SMAMS2: .BYTE AMAMSZ2 ;:HIGH ADDRESS.M S. BYTE 
907 001563 000 SMTYP2. _BYTE AMTYP2 ;;: MEM. TYPE, BLK&2 
908 001564 000000 SMADR2: _WORD AMADR2 ;;MEM. LAST ADDRESS. BLK#2 
909 001566 000 SMAMS3: _BYTE AMANS3 ;;HIGH ADDRESS. M.S. BYTE 
310 001567 000 SMTYP3: .BYTE AMTYP3 ;; MEN. TYPE, BLK&®3 
911 001570 oo0000 SMADR3. _WORD AMADR3 ;;MEM.LAST ADDRESS. BLK#3 
912 001572 000 SMANSY: _BYTE AMANSY ;;HIGH ADDRESS. NM. S. BYTE 
913 001573 090 SMTYP4: _BYTE AMTYPY ;;MEM. TYPE, BLK&4 
914 001574 o00000 SMADRY: _WORD AMADRY ;;MEM. LAST ADDRESS. BLKS4 
915 001576 o00000 SVECT1. _WORD AVECT1 :; INTERRUPT VECTOR#1,BUS PRIORITY@1 
916 001600 000000 SVECT2: _WORD AVECT2 :;: INTERRUPT VECTOR#2BUS PRIORITY#2 
917 001602 O00000 SBASE: _WORD BASE ;:BASE ADDRESS OF EQUIPMENT UNDER TEST 
918 001604 o00000 SDEVM: _|WORD ADEVM ;; DEVICE MAP 
919 001606 000000 SCDW1. |WORD ACDW1 ;; CONTROLLER DESCRIPTION WORD#1 
920 001610 000000 SCDW2: WORD ACDW2 :; CONTROLLER DESCRIPTION WORD#2 
921 001612 000000 SDOWO. ‘WORD ADDWO ;: DEVICE DESCRIPTOR WORDSO 
922 001614 000000 SDDW1. WORD ADDW1 ;: DEVICE DESCRIPTOR WORDA1 
923 001616 000000 SDDW2. |WORD ADDW2 ;;: DEVICE DESCRIPTOR WORDS2 
924 001620 000000 SDDW3. WORD ADDW3 ;: DEVICE DESCRIPTOR WORDS3 
925 001622 O00000 SDDW4: WORD ADDWH  ;:DEVICE DESCRIPTOR WORDS4 


926 001624 000000 SDDWS: .WORD ADOWS ;-; DEVICE DESCRIPTOR WORD#S 





DZDUV-B MACY11 30(1046) 


DZ2DUVB. M11 


001626 
001630 
001632 
001634 
001636 
001640 
001642 
001644 
001646 
001650 


001652 
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000000 
000000 


000000 
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APT MAILBOX-ETABLE 


SODWE: 
SODW?: 
S$ODW8: 
SODN9: 


S$ODOW10: . 
SDOW11: . 
$00W12: . 
$D0W13: . 
S$DDW14: . 
S$OOW15: . 


SE TEND: 


ADDW6 
ADDN? 
ADDWS 
ADDONS 
ADDW10 
ADOW11 
ADDW12 
ADDW13 
ADOW14 
ADDW15 


>> DEVICE 
+; DEVICE 
+, DEVICE 
>; DEVICE 
> DEVICE 
+ DEVICE 
+; DEVICE 
+, DEVICE 
+; DEVICE 
>; DEVICE 


DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 


WORD#6 


WORD#14 
WORD#15 


SEQ 0021 
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943 
944 
945 
Me > INSTRUCTION DEFINITIONS 
948 005746 PUSH1SP=5746 ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
949 005726 POP 1SP=5726 ; INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
950 010046 PUSHRO= 10046 ; SAVE RO ON STACK =MOV RO. -(SP) 
951 012600 POPRO=12600 RESTORE RO FROM STACK =MOV (SP)+,RO 
952 024646 PUSHZSP=24646 ;DECREMENT STACK TWICE =CMP -(SP),-(SP) 
952 022626 POP2SP=22626 ; INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 
954 ;REGISTER DEFINITIONS 
cra ;RXCSR BIT DEFINITIONS 
Soe 100000 OSC=BITIS ;DATA SET CHANGE 
? 040000 RING=B1T14 ;RING 
958 020000 CTS=B1T13 ;CLR TO SEND 
959 010000 CARDET=B1T12 ; CARRIER DETECT 
960 004000 RECACT=BIT11 ;REC ACTIVE 
961 002006 SRO=B81T10 ;SEC REC DATA 
962 001000 DSR=BIT9 ;DATA SET RDY 
963 000400 STPSYN=B1T8 > STRIP SYNC 
964 000200 RXDONE =B 1 T7 >REC DONE 
965 000100 RINTEN=B1T6 ;REC INTR ENABLE 
Srp 000040 DSINTE=BITS ;O0SC INTR ENABLE 
967 000020 SYNSCH=B1T4 ; SYNC SEARCH 
cToyst 000010 STD=B1T3 ;SEC XMIT DATA 
Sed 000004 RTS=BIT2 ;REQ TO SEND 
970 000002 DTR=BIT1 ;DATA TERM RDY 
971 000001 v0O1D=B81TO 
972 ;RXOBUF BIT DEFINITIONS 
973 1000006 RXERR=BIT15 ;REC ERROR 
974 040000 OVRRUN=B1T14 ; OVERRUN 
975 020000 FRMERR=B1T13 ; FRAME ERROR 
976 010000 PARER=B1T12 PARITY ERROR 
977 ;PARCSR BIT DEFINITIONS 
978 001000 PAREN=BIT9 ; PARITY ENABLE 
979 000400 EVPAR=BITS SEVEN PARITY SENSE 
980 ;PARCSR WROD DEFINITIONS 
981 030000 SYNINT=30C00 ; SYNC EXTERNAL MODE 
982 020000 SYNEXT=20000 >SYNC INTERNAL MODE 
983 000000 1SYMOD=0 ; ISOC MODE 
984 000000 FIVE=0 ;WORD LENGTH 5 BITS 
985 002090 $1X=2000 ;WORD LENGTH 6 BITS 
ass 004000 SE VEN=4000 ;WORD LENGTH 7 BITS 
987 006000 E |GHT=6000 ;WORD LENGTH 8 BITS 
988 000000 NOPAR=0 ;NO PARITY 
989 001000 ODDPAR= 1000 ; 000 PARITY 
990 001400 EVEPAR=1400 7; EVEN PARITY 
991 ;TXCSR BIT DEFINITIONS 
992 100000 ONA=B1T15 ;DATA NOT AVAILAELE 
993 040000 MTDATA=B1T14 ; MAINT DATA 
95% 020000 CLK=BIT13 7 CLK 
Fon 002000 BITW=B1T10 ;BIT WINDOW 
996 000400 MRESET=BITS ; MASTER RESET 
997 000200 TXDONE =B1T7 ;XMIT DONE 


998 000100 TXINTE=B1T6 *>XMIT INTR ENABLE 





eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee—eEEEEEEEEEEEEEOEOEEEOEOOEOEOEEEEeee 
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999 000040 DNAINTE=B1TS 
1000 000020 SEND=B1T4 
1001 000010 HOXEN=B | T3 
1002 000001 BREAK=B1TO BRE 
1003 + TXCSR WRO DEF IN 
1004 000000 USER=0 S 
10¢5 004000 MINT=4000 
1006 010000 MEXT=10000 
1007 014000 SYSTST=14000 


DNA _ INTR ENAB 
SEND 


;MAINT INT MODE 
;+MAINT EXT MODE 
> SYSTEM TEST MODE 


SEQ 0023 
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DZDUVB. M11 31-MAY-77 09: 51 ERROR POINTER TABLE SEQ 0024 
pe .SBTTL ERROR POINTER TABLE 
1010 ;XTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
1011 ;XTHE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
1012 ;XLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1013 ; NOTE 1: IF SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC). 
aie + KNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1016 ix EM ++POINTS TO THE ERROR MESSAGE 
1017 x DH ++POINTS TO THE DATA HEADER 
1018 x OT ;;POINTS TO THE DATA 
1019 ;* OF ++POINTS TO THE DATA FORMAT 
1020 
1021 
1022 001652 SERRTB 
1023 ERROR TABLE 
1024 001652 001762 EM1 *ERROR 1 REGISTER ERROR 
1025 001654 002067 DH1 
1026 001656 002116 DT1 
1027 001660 002132 OF 1 
1028 001662 002022 EN2 ERROR 2 RECEIVER ERROR 
1029 001664 002067 DH1 
1030 001666 002116 OT1 
1031 001670 002132 OF 1 
1032 001672 002043 EM3 ERROR 3 TRANSMITTER ERROR 
1033 001674 002067 DH1 
1034 001676 002116 OT! 
1035 001700 002132 DF 1 
1036 001702 001746 EM4 ERROR 4 BIT ERROR (GENERAL ) 
1037 001704 900000 0 
1038 001706 002126 DT4 
1039 001710 002132 DF 1 
1040 
1041 DEFAULT DU ADDRESSES 
1042 001712 160010 RXCSR: 160010 
1043 001714 160011 HRXCSR: 160011 
1044 001716 160012 RXDBUF: 160012 
1045 001720 160013 HR XDBUF : 160013 
1046 001722 160012 PARCSR: 160012 
1047 001724 160013 HPARCSR: 160013 
1048 001726 160014 TXCSR: 160014 
1049 001730 160015 HTXCSR: 160015 
1050 001732 160016 TXDBUF: 160016 
1051 001734 160017 HTXDBUF : 160017 
1052 :DEFAULT DU VECTORS 
1053 001736 000770 DURIV: 770 REC INTR VECTOR 
1054 001740 000772 DURIS: 772 7REC INTR STATUS 
1055 001742 000774 DUTIV: 774 +XMIT INTR VECTOR 
1056 001744 000776 DUTIS: 776 > XMIT INTR STATUS 
1057 ERROR MESSAGES 
1058 001746 020040 051105 047522 EMH: .ASCIZ 7 ERROR PC 7 
1059 001754 020122 041520 900040 
1060 001762 020040 047503 050115 EMI: .ASCIZ 7 COMPARISON ERROR ON REGISTERS/ 


1061 001770 051101 051511 047117 
1062 001776 O42440 051122 051117 
1063 002004 047440 020116 042522 
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1064 002012 O44507 052123 051105 

1065 002020 000123 

1066 002022 020040 042522 042503 ENZ: .ASCIZ 7 RECEIVER ERROR/ 

1067 002030 053111 051105 042440 

1068 002036 051122 051117 000 

1069 002043 O40 052040 040522 ENS: .ASCIZ 7 TRANSMITTER ERROR/ 
1070 002050 051516 044515 052124 

1071 002056 051105 O42440 051122 

1072 002064 051117 000 

1073 DATA HEADERS FOR ERROR MESSAGES 
1074 002067 105 051122 041520 OHI: .ASCIZ ZERRPC WANTED ACTUAL/ 
1076 002074 020040 040527 052116 

1076 002102 042105 020040 041501 

1077 002110 052524 046101 000 


1078 002116 . EVEN 

1079 ;DATA TABLES FOR ERROR MESSAGES 

1080 002116 001416 001130 001132 OT1: . WORD SERRPC.HLOO, HLD1,0 

eH 002124 000000 

1 

ae 002126 001416 000000 OT4: .WORD SERRPC.O 

1084 

1085 002132 000 000 000 OF1: .BYTE 0,0,0,0 

1086 002135 000 

1087 ; . EVEN 

— .SBTTL ACT11 HOOKS 

1 

1090 ji MXXAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EAA A AAA A EAE 
1091 *HOOKS REQUIRED BY ACT11 

1092 002136 SSVPC=. + SAVE PC 

1093 00G046 . 246 

1094 O0004%6 012674 SENDAD 3+1)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 
1095 000052 . 252 

1096 000052 9000000 .WORD QO +;2)SET LOC. 52 TO ZERO 

1097 002136 . =$SVPC ++ RESTORE PC 

1098 .SBTTL APT PARAMETER BLOCK 

1099 

1100 js MEXAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EEE 
1101 ;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

1102 j RXXXAAAAAAARAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
1103 002136 $X=. +; SAVE CURRENT LOCATION 

1104 000024 224 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
1105 000024 000200 200 +FOR APT START UP 

1106 000044 . =44 ;;POINT TO APT INDIRECT ADDRESS PNTR 

1107 O0004% 002136 SAP THOR ;,POINT TO APT HEADER BLOCK 

1108 002136 $X ;;RESET LOCATION COUNTER 

1109 BETTER TET atte 
1110 ; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
1111 + INTERFACE SPEC. 

1112 

1113 002136 SAP THD: 

1114 002136 000000 SHIBTS: .WORD OQ +, TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
1115 002140 001526 SMBADR: .WORD SMAIL ;; ADDRESS OF APT MAILBOX (BITS 0-15) 

1116 002142 000010 - STSTM: .WORD 10 ;-RUN TIM OF LONGEST TEST 

1117 002144 000010 SPASTM: .WORD 10 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
1118 002146 000000 SUNITM: . WORD ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
1119 002150 000052 -WORD- GETEND-SMAIL/2 >; LENGTH MAILBOX-ETABLE (WORDS) 


002152 


002152 
002156 
002160 
002164 
002166 


002172 
002200 
002206 
002214 
002222 
002230 
002236 
002244 
002252 
002256 
002262 
002270 
002276 


002304 
002310 
002316 
002324 
002332 
002340 


002342 


002424 
002432 


DZ0UV-B MACY11 30(1046) 
DZD0UVB. M11 


012706 
005026 
022706 
001374 
012706 


012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
005067 
005067 
112767 
012767 
012767 


013746 
012737 
012767 
012767 
022777 
001012 


000403 
012716 
000092 
012767 
012767 
012637 


005067 
132767 
001403 
012767 


012706 
106427 
012737 
105067 
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001400 
001440 
001100 


016320 
000340 
014210 
000340 
016654 
000340 
015012 
000340 
177234 
177232 
000001 
002270 
002276 


000004 
002344 
177570 
177570 
177777 


002352 


000176 
000174 
000004 


177136 
000200 


001550 


001100 
000340 
015012 
176535 


000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 


177125 
177110 
177104 


000004 
177114 
177110 
177100 


177060 
177054 


177143 


177024 


000924 


8 
APT PARAMETER BLOCK 


PROGRAM INITIALIZATION 

+LOCK OUT INTERRUPTS 

*SET UP PROCESSOR STACK 

+SET UP POWER FAIL VECTCR 

;CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
+ TYPE TITLE MESSAGE 


. START: 
.SBTTL INITIALIZE THE COMMON TAGS 
+; CLEAR THE _— TAGS (SCMTAG) AREA 


MOV SCMTAG, R6 +7FIRST LOCATION TO BE CLEARED 
CLR (R6)+ +; CLEAR MEMORY LOCATION 

CMP RSWR,R6 ;; DONE? 

BNE .76 +;LOOP BACK IF NO 


MOV ##STACK., SP ++SETUP THE STACK POINTER 
+7 INITIALIZE A FEW VECTORS 

MOV RSSCOPE, D#IOTVEC >; 10T VECTOR FOR SCOPE ROUTINE 

MoV #340, OHIOTVEC+2 7 LEVEL 7 

MOV #SERROR, DHEMTVEC 77 EMT VECTOR FOR ERROR ROUTINE 

MOV #340, O#EMNTVEC+2 7 LEVEL 7 

MOV #STRAP, DETRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 

MOV #340, QETRAPVEC+2; LEVEL 7 

MOV #SPWRON, D#PWRVEC >; POWER FAILURE VECTOR 

MOV #340, O#PWRVEC+2 7; LEVEL 7 

CLR STIMES +; INITIALIZE NUMBER OF ITERATIONS 

CLR SESCAPE +;CLEAR THE ESCAPE ON ERROR ADDRESS 

MOVB #1, SERMAX ++ALLOW ONE ERROR PER TEST 

MOV #. . SLPADR +; INITIALIZE THE LOOP ADDRESS FOR SCOPE 

MOV #. , SLPERR +,SETUP THE ERROR LOOP ADDRESS 
7;S1Z2E FOR R HAROWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
+,EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER 

MOV OFERRVEC.-(SP) +; SAVE ERROR VECTOR 

MOV #O4S,QHERRVEC +7; SET UP ERROR VECTOR 

MOV #DSWR. SHR ++SETUP FOR A HARDWARE SWICH REGISTER 

MOV RDDISP.DISPLAY +; AND A HARDWARE DISPLAY REGISTER 

CMP #-1,09SWR +7 TRY TO REFERENCE HARDWARE SWR 


BNE 66% +;BRANCH IF NO TIMEOUT TRAP OCCURRED 
*;AND THE HARDWARE SWR IS NOT = - 
BR 65$ +;BRANCH IF NO TIMEOUT 
64S: MOV #655, (SP) +;SET UP FOR TRAP RETURN 
RTI 
658: - MOV #SWREG, SHR ++POINT TO SOFTWARE SWR 


MoV #DISPREG. DISPLAY 
66S: MoV (SP)+,@#ERRVEC +; RESTORE ERROR VECTOR 


CLR SPASS >; CLEAR PASS COUNT 
BiITB #APTSIZE,SENVM ;; TEST USER SIZE UNDER APT 
BEQ 67$ is 3+ YES.USE NON-APT SWITCH 
MOV #SSWREG, SWR ;;NO,USE APT SWITCH REGISTER 
675: 
MOV #STACK, SP ;SET STACK 
MTPS #340 ;LOCK INTERRUPTS 
MOV #. PFAIL, d#24 ;SET UP POWER FAIL VECTOR 
CLRB STFLG >CLEAR START FLAG 


SEQ 0026 


ee SSSR 
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0024 36 
002442 
002446 
002452 
002456 
002464 


002472 
002476 
002502 
002510 
002514 
002516 
002524 
002532 
002534 
002540 
002544 
002552 
002554 
002566 
002562 
002566 
002572 
002576 
002600 
002604 
002610 


002734 


31-MAY-77 


005067 


012767 


013746 
013746 
012737 
005777 
000407 
012767 
012767 
022626 
012637 
012637 
022767 
001007 
005737 
001402 
000167 
004767 
105767 
001004 
104401 
105167 
105767 
001410 
032767 
001002 
105067 
000167 
032777 
001002 
000167 
012700 
012701 
012702 
010110 


004767 
016767 
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176450 
176735 
176740 
176740 
000001 
002152 


000006 
000004 
002515 
176724 


000176 
000174 


000004 
000006 
000176 


000042 


000522 
010204 
176374 


01£152 
176362 
176732 


000001 


176321 
000452 
000001 


0004 36 
000300 
000302 
000004 


001000 


014222 
014062 
176216 


176716 
176412 


000004 


176714 


176710 


176666 


176726 


176574 


176226 
176212 


25: 


335: 
3$: 


ONCE: 


. BYTE 
BYTE 


B 3 

PASCNT ; CLEAR PASS COUNT 

SERFLG + CLEAR ERROR FLAG 

SERTTL > CLEAR ERROR COUNT 

SERRPC ; CLEAR LAST EPROR POINTER 

#1, STSTNM ;SET UP FOR TEST 1 

#. START, RETURN ;SET UP FOR POWER FAIL BEFORE 
+ TESTING STARTS 

a%6, - (SP) 

ae4, -(SP) 

#15. d84 

ASHR 

2$ 

#SWREG, SWR 


#DISPREG, DISPLAY 
(SP)+, (SP)+ 


(SP) +, d84 

(SP) +, d#6 

#SWREG, SWR 

34 

OR42 ; CHECK FOR CHAIN 

338 

. BEGIN 

PC, CNTLU 

— ;HAS INITIALIZATION BEEN PERFORMED 
ON 

»MTITLE ; TYPE TITLE MESSAGE 
INIFLG ; 1F NOT SET FLAG AND DO 
SENV ; APT CONTROL? 

11$ ;BR IF NO 

#1, SUSWR ;EXTENAL JUMPER ON? 

12% NO 

JMRBY ;CLEAR FLAG 

. BEGIN :GO 00 IT 

 anetetees ;RESELECT VECTOR & CONTROL REG? 
1 

. BEGIN 


#300,RO ;RESTORE VECTOR AREA TO TRAPCATCHER 
#302,R1 ;START AT LOCATION 300 

#4,R2 

Ri, (RO) 

(R1) 

R2,R0 


R2.R1 
#1000. R1 +END AT LOCATION 776 


2$ 

OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 

+CONVERT STRING 

+LOW ore 

*HIGH LIMIT 

+ STORE ar THIS LOCATION 

; MASK 

;HOW MANY TIMES + 2 

DUBASE.KEEPADD ; SAVE 

PC, DUADOR 

KEEPADD. BASEADD ; RESTORE FOR ROTATION 


SEQ 0027 


C 3 
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DZDUVB. M11 31-MAY-77 09: 51 INITIALIZE THE COMMON TAGS SEQ 0028 
1232 002742 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1233 002744 015205 MVECTO ; MESSAGE 
1234 002746 104410 PARAM ; CONVERT STRING 
1235 002750 000300 300 + LOW art 
1236 002752 000776 776 + HIGH 
1237 002754 001736 DUR IV STORE at THIS LOCATION 
1238 002756 001 .BYTE 1 > MASK 
1239 002757 004 .BYTE 4 ; HOW MANY TIMES + 2 
1240 002760 016767 176752 176176 MOV DUR IV, KEEP IV + SAVE 
1241 002766 016767 176744 176166 MOV DUR IV, BASE IV +SET UP FOR ROTATION 
1242 002774 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1243 002776 015250 MMULT ; MESSAGE | 
1244 OO3000 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING | 
1245 003002 001152 MULTO ; THIS FLAG | 
1246 O03004 105767 176142 TSTB MULTO ;ARE THERE MULTIPLE DEVICES 
1247 ON THE SYSTEM ? 
1248 003010 100406 BMI BBB ; YES. ASK NEXT QUESTION 
1249 003012 005067 176150 CLR ACTREG 
1250 003016 005067 176146 CLR ROTADD 
1251 003022 000167 000140 JMP OUTMUL ; JUMP AROUND NEXT QUESTION 
1252 003026 BBB: 
1253 003026 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1254 003030 015277 MLASTD ; MESSAGE 
1255 003032 1044:0 PARAM ;CONVERT STRING 
1256 003034 160000 160000 ;LOW LIMIT 
1257 003036 167776 167776 =; HIGH LIMIT 
1258 003040 001160 LASTADD ; STORE AT THIS LOCATION 
1259 003042 001 .BYTE 1 ; MASK 
1260 003043 001 is, oe ;HOW MANY TIMES + 2 
1261 >THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME 
1262 OO03044% 012767 000001 176116 1%: MOV #1,ROTADD SET UP POINTER 
1263 003052 005067 176110 CLR ACTREG ;CLR ACTIVE REGISTER 
1264 003056 056767 176106 176102 23%: BIS ROTADD. ACTREG *MAKE THIS DEVICE ACTIVE 
1265 003064 000241 CLC 
1266 003066 006167 176076 ROL ROTADD ;SET UP POINTER 
1267 003072 103421 BCS 3$ +ARE YOU OUT OF RANGE ? 
1268 003074 062767 000010 176052 ADD #10. BASEADD ;SET UP BASE ADDRESS 
1269 003102 026767 176052 176044 CMP LASTADD. BASEADD ; 1S THIS THE LAST DEVICE ? 
1270 003110 101362 BHI 2$ +NO DO IT AGAIN 
1271 003112 056767 176052 176046 BIS ROTADD.ACTREG ;THIS ASSUMES THAT THERE ARE AT 
1272 ;LEAST TWO DEVICES WHEN YOU ANSWER YES T9 
1273 +MULTIPLE DEVICE QUESTION 
1274 003120 012767 O00001 176042 4S: MoV #1,ROTADD +SET UP FOR LATER USE IN ENO OF PASS ROUTINE 
1275 003126 016767 176024 176020 MoV KEEPADD. BASEADD ; DITTO 
1276 003134 000414 BR OUTMUL ;CONTINUE QUESTIONS 
1277 003136 016767 176014 176010 3%: MoV KEEPADD. BASEADD ; RESTORE 
1278 003144 104406 INSTR ; OUTPUT MESSAGE & GET INPUT STRING 
1279 003146 015373 MRANGE ; MESSAGE 
1280 003150 104410 PARAM ; CONVERT STRING 
1281 003152 160000 160000 -;LOW LIMIT 
1282 003154 167776 167776 ;HIGH LIMIT 
1283 003156 001160 LASTADD ; STORE AT THIS LOCATION 
1284 003160 001 .Ovm™ 1 + MASK 
1285 003161 001 ove 3 ;HOW MANY TIMES + 2 
1286 003162 000167 177656 JMP 1$ +D0 IT AGAIN 
1287 003166 012767 O00340 013616 OUTMUL: NOV #340, DUPRT 


0 3 
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DZ0UVB. M11 31-MAY-77 O09: 51 INITIALIZE THE COMMON TAGS 
1288 003174 004767 013542 JSR PC, OULEV 
1289 + COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
1290 +BUFFER TO THE CHARACTERS "1" AND “2". 
1291 ;1F THE CHARACTER IS "1" CLEAR THE FLAG 
1292 + 1F THE CHARACTER 1S "2" SET THE FLAG 
1293 003200 AAR: 
1294 003200 104406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
1295 003202 015611 MSYNC ; MESSAGE 
1296 003204 122767 000061 012740 3%: CMPB #'1, INBUF :1S 17 “E" 7 
1297 003212 001003 BNE 1$ 
1298 003214 105067 175726 CLRB SYNCNO ;000 
1299 003220 000412 BR 4§ 
1300 003222 122767 000062 012722 15%: CMPB #'2, |NBUF stS ey “2" 7 
1301 003230 001004 BNE 2$ 
1302 003232 112767 177777 175706 MOVB #-1, SYNCNO +377 
1303 003240 000402 BR 4$ 
1304 003242 104407 23: INSTER ; RETRY 
1305 003244 000757 BR 3$ 
1306 003246 000240 4$: NOP 
1307 003250 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1308 003252 015657 MWIRE6 +; MESSAGE 
1309 003254 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1310 003256 001147 SEXMIT >; THIS FLAG 
1311 903260 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1312 03262 015730 MWIRES ; MESSAGE 
1313 003264 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1314 003266 001150 SEREC ;THIS FLAG 
1315 003270 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1316 003272 016000 MWIREY ; MESSAGE 
1317 003274 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1318 003276 001151 OPTCLR ; THIS FLAG 
1319 O03300 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1320 003302 016057 MEXTJ  ; MESSAGE 
1321 O03304 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
rE 003306 001153 JMRBY ; THIS FLAG 
1 
1324 > TEST START AND RESTART 
1325 
1326 003310 012706 001100 BEGIN: MOV #STACK, SP SET UP STACK 
1327 003314 106427 OO00340 MTPS #340 LOCK OUT INTERRUPTS 
1328 003320 032777 O00002 176112 BIT #SWO1, ASHR >1F SWO1=1, GET STARTING PC 
1329 003326 001413 BEQ 3$ 
1330 003330 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1331 003332 015543 MTSTPC + MESSAGE 
1332 003334 104410 PARAM ; CONVERT STRING 
1333 003336 003374 TST1 +LOW rie 
1334 003340 017500 17500 =;HIGHL 
1335 003342 001402 STSTNM ; STORE at. THIS LOCATION 
1336 003344 001 .BYTE 1 ; MASK 
1337 003345 001 Ov § >HOW MANY TIMES + 2 
1338 003346 016767 176030 175530 MoV STSTNM. RETURN 
1339 003354 000403 BR 4§ 
1340 003356 012767 003374 175520 3%: MoV #TST1,RETURN *>START AT TEST 1 
1341 003364 104401 015537 4$: TYPE MR ; TYPE R 
1342 003370 000177 175510 JMP ORE TURN ; START TESTING 


es 
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DZ0UVB. M11 31-MAY-77 09: 51 INITIALIZE THE COMMON TAGS SEQ 0030 
1344 
1345 ++ THIS TEST VERIFYS THAT RXDONE CAUSES AN INTERRUPT 
1346 +;MODE: SYNC EXTERNAL 
1347 ++ INTERRUPT VECTOR: DURIV 
1348 ++LENGTH: EIGHT 
1349 jp REXKAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA AA AAA AAAS AAA AAA EES 
$7 003374 O00004 TST1: SCOPE 
1 
1352 003376 052777 OOO400 176322 BIS MMRESET.dTXCSR ;MASTER RESET 
1353 OO3404% 012777 020009 176310 MOV #SYNEXT. APARCSR ;SET THE MODE 
$74 003412 052777 O00400 176306 BIS #MRESET.@TXCSR ;MASTER RESET 
1356 ;SET MAINT DATA, CLK. BREAK. &MAINTENANCE MODE 
i. 003420 012777 064001 176300 MOV RMTDOATA!CLK!MINT!BREAK, dTXCSR 
1359 SET MODE .# OF BITS, PARITY SENSE.&LOAD SYNC REG 
1360 003426 012777 026026 176266 MOV #SYNEXT!E 1GHT!NOPAR ! 26, APARCSR 
1361 003434 052777 000020 176250 BIS RSYNSCH, ARXCSR ;SET SEARCH SYNC 
1362 >POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
1363 OO3442 042777 O20000 176256 BIC #CLK, ATXCSR *POKE CLK DOWN 
1364 003450 052777 020000 176250 Bis #CLK, ATXCSR *POKE CLK UP 
1365 003456 012777 003500 176252 MoV #1%. dDUR IV + SET UP TRAPCATCHER 
1366 003464 016777 013322 176246 Mov DUPRT, dDURIS ; 
1367 003472 106427 000000 MTPS #0 >ALLOW INTERRUPTS 
1368 003476 000424 BR 2$ ; JUMP AROUND INTERRUPT SVC ROUTINE 
1369 > THE — 1S THE INTERRUPT SVC ROUTINE 
1370 003500 106427 000540 15: MTP #340 ;DON'T ALLOW ANYMORE INTERRUPTS 
1371 003504 042777 000100 176200 gic. #RINTEN. ARXCSR ; CLEAR INTERRUPT ENABLE 
1372 003512 105777 176174 TSTB ORXCSR > RXDONE=17? 
1373 003516 100401 BMI +4 
1374 003520 104004 ERROR 4 +FALSE INTERRUPT 
13756 003522 012716 003714 MOV #3%, (SP) +SET UP RETURN LOCATION 
1376 003526 016777 176206 176202 MoV DUR IS, dDUR IV +RESTORE TRAPCATCHER 
1377 003534 012777 OO0000 176176 MoV #0, dDURIS ; 
1378 003542 017701 176150 MOV ORXDBUF. R14 *CLEAR INTERRUPT 
Pos 003546 000002 RTI 
1 
1381 003550 052777 000100 176134 2%: BIS #RINTEN. ARXCSR ;SET INTERRUPT ENABLE 
1382 003556 012767 O00010 175336 MOV #8... SHIFT 7# OF SHIFTS 
1383 003564 012767 000025 175706 MOV #25, STMP1 >TO BE SH!FTED CHARACTER 
1384 ; THE FOLLOWING POKES THE MAINT DATA BASED UPON THE 
1385 ; INFORMATION CONTAINED IN STMP1 AND IT IS 
1386 ; SHIFTED IN BY THE CONTENTS OF SHIFT 
1387 003572 042777 O4O000 176126 5%. BIC #MTDATA, ATXCSR 
1388 003600 000241 CLC 
1389 003602 006067 175672 ROR STMP1 ;FORCE CARRY 
1390 003606 103003 BCC 4% 
1391 003610 052777 O4O0000 176110 BIS #MTDATA, aTXCSR 
1392 003616 042777 020000 176102 4%: BIC #CLK, ATXCSR 
1393 003624 052777 020000 176074 BIS CLK, ATXCSR 
1394 003632 005367 175264 DEC SHIFT 
1395 003636 001355 BNE 5$ 
1396 ; INTERRUPT SHOULD NOW OCCUR 
1397 003640 005000 CLR RO 
1398 003642 005200 INC RO >WAIT FOR INTERRUPT 


1399 003644 001376 BNE 2 
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1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 


003646 
003654 
003662 
003666 
003672 
003676 
003704 
003706 
003710 
003712 


003714 


003720 
003722 
003726 
003730 
003734 
003742 
003750 


003756 


003764 
003772 


004000 
004006 
004014 
004022 
004030 
004034 


004076 
004102 


. w 


21-SEP-77 09:27 PAGE 


31-MAY-77 09: 51 


016777 
012777 
016703 
012700 
017701 
042777 
020001 
001401 
104002 
104004 


106427 


000004 
105767 
100402 
000167 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 
012777 
016777 
106427 
000454 


106427 
105777 
100401 
104004 
012716 
012777 


052777 
017701 


106427 
005000 


176066 
000000 
176030 
000025 
176020 
000100 


000340 


175225 


000402 
00C400 
020u00 
000400 


064001 


026026 
000020 


020000 
020000 
004036 
012764 
000000 


000340 
175644 


004332 
004136 


000002 
175620 


000000 


176062 
176056 


176006 


175764 
175752 
175750 


175742 
175730 
175712 
175720 
175712 


175714 
175710 


175652 
175620 


33 
INITIALIZE THE COMMON TAGS 


MOV DUR IS, ADUR IV RESTORE TRAPCATCHER 
MOV #0, dOURIS ; 

MOV RXDBUF,R3 *FOR ERROR MESSAGE 
MOV #25,R0 + EXPECTED 

MOV ORXOBUF, R1 

BIC MRINTEN. ORXCSR ;CLR INTR ENABLE 


CMP RO.R1 

BEQ _ +4 

ERROR 2 ; CHARACTERS SHOULD COMPARE 

ERROR 4 ; INTERRUPT FRILED TO OCCUR 
3$: MTPS #340 


+; THIS TEST VERIFYS THAT TWO INTERRUPTS THAT TRAP TO 
>; THE SAME VECTOR ARE BOTH EXECUTED 

+; INTERRUPT VECTOR: DURIV 

>; THIS TEST ONLY WORKS IN MAINT EXTERNAL MODE 


5 5 RARKAAAA AAA AAA AAA AAA A AAA AAA AAA AAA AA AAS AAA AAA AAA EAE 
TST2: SCOPE 


TSTB JMRBY + 1N MAINT. EXTERNAL? 
BMI +6 > 1F ANSWER WAS YES DO THIS TEST 
JMP 1$ + 1F ANSWER WAS NO JUMP AROUND TEST 


BIS @MRESET, dTXCSR ; MASTER RESET 
MOV @SYNEXT, APARCSR ; SET THE MODE 
BIS RMRESET, aTXCSR {MASTER RESET 


;SET MAINT DATA, CLK, BREAK, &MAINTENANCE MODE 
MOV SMTOATA!CLK!MINT!BREAK. dTXCSR 


;SET MODE .# OF BITS,PARITY SENSE. &LOAD SYNC REG 
MoV #SYNEXT!E |GHT!NOPAR ! 26. OPARCSR 
BIS RSYNSCH, ARXCSR ;SET SEARCH SYNC 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC CLK, ATXCSR + POKE na DOWN 


BIS #CLK, ATXCSR ;POKE CLK UP 
MoV #2, ADUR IV ;SET UP TRAPCATCHER 
MOV OUPRT. dDUR!S ; 
MTPS #0 ALLOW INTERRUPT 
BR 3$ ; JUMP AROUND SVC ROUTINE 
> THE oaar-* > toe 1S THE 1ST INTERRUPT SVC RCUTINE 
2: MTPS #340 ; DON'T —s ANY MORE INTERRUPTS 
TSTB ORXCSR RXDONE = 1 ? 
BMI . +4 
ERROR 4 FALSE INTERRUPT 
MoV #5%,. (SP) ;SET UP RETURN LOCATION 
MoV #4$,. QDURIV ;SET UP TRAPCATCHER FOR SECOND 
> INTERRUPT 
BIS #DTR, ARXCSR > TRY TO CAUSE SECOND INTERRUPT 
MOV OR XDBUF,. R1 ; JUST READ RXDBUF TO CLR RXDONE 
>TO ALLOW SECOND INTERRUPT 
MTPS #0 ;ALLOW INTERRUPT 


CLR RO 


: 


we 
SEQ 0031 


G 3 ] 
DZ2DUV-B MACY11 30(104%6) 21-SEP-77 09:27 PAGE 34 
DZDUVB. M11 31-MAY-77 09: 51 INITIALIZE THE COMMON TAGS SEQ 0032 | 
| 
1456 004104 005200 INC RO ;WAIT FOR INTERRUPT 
1457 004106 001376 BNE .-2 
1458 004110 042777 O00140 175574 BIC #RINTEN'DSINTE, ARXCSR ;CLR INTR ENABLES 
v9 004116 104004 ERROR 4 ;2ND INTERRUPT FAILED TO OCCUR 
1461 004120 016777 175614 175610 65%: MOV DUR IS, AOUR IV ;RESTORE TRAPCATCHER 
1462 004126 012777 O00000 175604 MOV #0, 2DURIS ; 
1463 004134 000062 RTI 
1 
1465 ; THE FOLLOWING 1S THE 2ND INTERRUPT SVC ROUTINE | 
1466 004136 106427 000340 4S: TPS #340 ;DON'T ALLOW ate ae INTERRUPTS 
1467 004142 005777 175544 TST aRXCSR ;08C = 1? 
1468 004146 100401 BNI +4 
1469 004150 104004 ERROR 4 ;FALSE INTERRUPT 
1470 004152 042777 O00140 175532 Bic #RINTEN'DSINTE, ARXCSR |; CLR BOTH INTR ENABLES 
1471 004160 012716 004120 MOV #6%, (SP) ;SET UP RETURN LOCATION | 
1n?2 004164 000002 RTI 
14 
1474 004166 052777 O00140 175516 3%: Bis #RINTEN'DSINTE, ARXCSR ; SET INTERRUPT ENABLES 
1475 004174 012767 000010 174720 MOV #8., SHIFT 3% OF SHIFTS 
1476 004202 012767 000025 175270 MOV #25, STMP1 
1477 ; THE FOLLOWING POKES THE MAINT DATA BASED UPON THE 
1478 ; INFORMATION CONTAINED IN STMP1 AND IT IS 
1479 ; SHIFTED IN BY THE CONTENTS OF SHIFT 
1480 004210 042777 O4OD00 175510 8%: BIC #MTDATA, aTXCSR 
1481 004216 000241 CLC 
1482 004220 006067 175254 ROR STMP1 ;FORCE CARRY 
1483 004224 103003 BCC 7$ 
1484 004226 052777 O4O0D0 175472 BIt #MTDATA, aTXCSR 
1485 004234 042777 020000 175464 7%: BIC #CLK, AaTXCSR 
1486 004242 052777 020000 175456 BIS #CLK, aTXCSR 
1487 004250 005367 174646 DEC SHIFT 
1488 004254 001355 BNE 8% 
1489 ;1ST INTERRUPT SHOULD NOW OCCUR 
1490 004256 005000 CLR RO 
1491 004260 005200 INC RO ;WAIT FOR INTERRUPT 
1492 004262 001376 BNE es ; 
1493 004264 016777 175450 175444 MOV DUR IS. ADURIV >RESTORE TRAPCATCHER 
1494 004272 012777 OD0000 175440 MoV #0, DUR IS ; 
1495 004300 016703 175412 MoV RXDBUF. R23 ;FOR ERROR MESSAGE 
1496 004304 012700 000025 MoV #25,R0 7 EXPECTED 
1497 004310 017701 175402 MoV ORXDBUF. R1 
1498 004314 042777 000140 175370 BIC @RINTEN'DSINTE. ORXCSR ;=CLR INTERRUPT ENABLES 
1499 004322 020001 CMP RO.R1 
1500 004324 001401 BEQ +4 
1501 004326 104002 ERROR 2 ; CHARACTERS SHOULD COMPARE 
1502 004330 104004 ERROR 4 ; INTERRUPT FAILED TO OCCUR 
1503 
1504 004332 106427 000340 55 MTPS #340 ;DON'T ALLOW AN’ MORE INTERRUPTS 
1 $05 004336 13: 
1 
1507 . THIS TEST VERIFYS THAT DNA CAUSES AN INTERRUPT 
1508 ;;MODE: SYNC EXTERNAL 
1509 >; INTERRUPT VECTOR: DUTIV 
1510 


1511 oe oO 050500000000000000605235985555595 20505555 2922505303555000235 3) 
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UZ2DUVB. M11 


1512 
1513 


004336 


004340 
004 346 
004 354 


004 362 


004370 
004376 
004404 


004412 
004420 


004426 
004426 
0044 34 
004442 
004446 
004450 
004456 
004464 
004470 


004476 
004504 
004506 
004510 
004512 
004514 


004516 
004522 
004526 
004530 
004532 
004540 
004544 
004552 
004560 


004562 
004570 


004576 
004604 


000004 


052777 
012777 
052777 


012777 


012777 
112777 
012767 


052777 
042777 


052777 
C42777 
005367 
001367 
012777 
016777 
106427 
052777 


052777 
005000 
005200 
001376 
104004 
000422 


106427 
005777 
100401 
104004 
042777 
012716 
016777 
012777 
000002 


016777 
012777 


042777 
106427 


21-SEP-77 9: 
31-MAY-77 09: 51 


000400 
020000 
000400 


004020 


026026 
000025 
000010 


020000 
020000 


020000 
020000 
174454 


004516 
012330 
o00c000 
000uU40 


020000 


000340 
175200 


000040 
004604 
175174 
000000 


175156 
000000 


000040 
000340 


175360 
175346 
175344 


175336 


175324 
175326 
174510 
175306 
175300 


175272 
175264 


175264 
175260 


175166 
175170 
175164 
175152 
175146 


175122 


H 3 
35 
INITIALIZE THE COMMON TAGS 
TST3: SCOPE 


BIS MMRESET.dTXCSR ;MASTER RESET 
MOV #SYNEXT, @PARCSR ; SET THE MODE 
BIS MMRESET,dTXCSR ;MASTER RESET 


;SET MAINTENANCE MODE & SEND 
;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV #MINT! SEND, dTXCSR 


»SET MODE. # OF BITS,PARITY SENSE.& LOAD SYNC REG 
MOV #SYNEXT!E1GHT!NOPAR ! 26, OPARCSR 
MOVB #25, dTXOBUF LOAD CHARACTER 


27 PAGE 


Mov #8. . SHIFT 
>;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, dTXCSR ;POKE CLK UP 
BIC #CLK. dTXCSR ;POKE CLK DOWN 
1S: 
BIS #CLK, dTXCSR ;POKE CLK UP 
Bic #CLK, JTXCSR ;POKE CLK DOWN 
DEC SHIFT ;LAST SHIFT? 
BNE 1$ 
MOV #2%, dDUTIV ;SET UP TRAPCATCHER 
MOV DUPRT, dDUTIS ; 
MTPS #0 >; ALLOW: INTERUPTS 
BIS #DNAINTE. ATXCSR ; ENABLE INTERRUPT 
;NOW POKE CLK TO GET DNA 
BIS #CLK, daTXCSR >POKE CLK 
CLR RO 
INC RO ;WAIT FOR INTERRUPT 
BNE .°2 
ERROR u >; INTERRUPT FAILED TO OCCUR 


BR 3$ ; JUMP AROUND SVC ROUTINE 
> THE FOLLOWING IS THE INTERRUPT SERVICE ROUTINE 
28: MTPS #340 ;>DON'T ALLOW ANYMORE INTERRUPTS 


TST aTXCSR ; DNA? 
BMI +4 
ERROR 4 ;FALSE INTERRUPT 
BIC #ONAINTE. ATXCSR > CLR INTR ENABLE 
MoV #49, (SP) ;SET UP RETURN LOCATION 
MOV DUTIS, ADUTIV >RESTORE TRAPCATCHER 
MOV #0, dDUTIS ; 
RTI 
35: MOV DUTIS, dDUTIV ;RESTORE TRAPCATCHER 
MoV #0, d@DUTIS : 
BIC #DNAINTE, ATXCSR >; CLR INTERRUPT ENABLE 
4: MTPS #340 ;RESTORE NO INTERRUPT STATUS 


;; THIS TEST VERIFYS THAT TXDONE CAUSES AN INTERRUPT 
>; INTERRUPT VECTOR: DUTIV 
>;NOTE. TXDONE = 1 AFTER A MASTER RESET 


re 


ee = 7 


SEQ 0033 


DZDUV-B MACY11 3011046) 


DZ2DUVB. M11 


004610 


004612 
004620 
004626 
004634 
004640 
004646 
004650 
004652 
004654 
004662 
004664 


004666 
004672 
004700 
004704 
004706 
004710 
004714 
004722 
004730 


004732 
004740 


004746 


004752 


005046 
005052 


21-SEP-77 09: 


31-MAY-77 09: 51 


000004 


052777 
012777 


000422 


106427 
042777 
105777 
100401 
104004 
012716 
016777 
012777 
000002 


016777 
012777 


106427 


000004 


000421 


106427 
042777 


000400 


000100 


000100 


000340 
000100 
175022 


004746 
175024 
000000 


175u06 
000000 


000340 


000400 
005046 
012016 
000340 
000100 


000100 
000340 
174710 
000000 


000340 
000100 


175106 
175114 
175110 


175060 


175044 


175026 


175020 
175014 


175002 
174776 


174744 
174752 
174746 


174716 


174702 


174704 
174700 


174046 


27? PAGE 36 
INITIALIZE THE COMMON TAGS 


js RAEXKAAAAAAAAA AAA AAA AAA AA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AEE 
TST4: SCOPE 


*> 


#MRESET, dTXCSR ; MASTER RESET 

#1%, @DUTIV + SET UP TRAPCATCHER 
DUPRT, ADUTIS ; 

#0 + ALLOW INTERPUTS 

— -OTXCSR ;ENABLE INTERRUPT 


RO. [WAIT FOR INTERRUPT 
#TXINTE,@TXCSR CLR INTERRUPT ENABLE 
4 


; INTERRUPT FAILED TO OCCUR 
2$ ; JUMP AROUND SVC ROUTINE 


> THE — 1S THE INTERRUPT SERVICE ROUTINE 
1$: TPS #340 


23: 


3: 


;DON'T ALLOW ANYMORE INTERRUPTS 
RTXINTE, QTXCSR +; CLR INTR ENABLE 


aTXCSR ; TRDONE? 

. +4 

s FALSE INTERRUPT 
#3%, (SP) >SET UP RETURN LOCATION 
DUTIS, dDUTIV RESTORE TRAPCATCHER 

#0, dDUTIS ; 


DUTIS. dDUTIY ;RESTORE TRAPCATCHEP 
#0, aDUTIS ; 


#340 >RESTORE NO INTERRUPT STATUS 


;; THIS TEST VERIFYS THAT TXDONE DOES NOT CAUSE AN INTERRUPT 
;;WHEN PROCESSOR PRIORITY LEVEL 1S TOO HIGH 
>; INTERRUPT VECTOR: DUTIV 


;;NOTE: TXDONE = 


1 AFTER A MASTER RESET 


PUTT T iT te tite t terre tet et ttt etett ttt ett ttetetetittit esti tts its 


TSTS: 


SMRESET, dTXCSR ;MASTER RESET 

#1%, @DUTIV + SET UP TRAPCATCHER 
DUPRT, dOUTIS ; 

#340 +SET PS LEVEL TOO HIGH 
#TXINTE,@TXCSR ;ENABLE INTERRRUPT 

RO +WAIT FOR INTERRUPT 

a ; 


ATXINTE, aTXCSR *CLR INTR ENABLE 
#340 DON'T ALLOW INTERRUPTS 
DUTIS. @DUTIV + RESTORE TRAPCATCHER 
#0, @DUTIS 
2 + TEST 1S OK. ...GET OUT OF TEST 


BR $ 
;THE FOLLOWING IS THE INTERRUPT SVC ROUTINE 


1$: 


MTPS 
BIC 


#340 ;DONT ALLOW ANYMORE INTERRUPTS 
RTXINTE,@TXCSR ;CLR INTR ENABLE 


ies 


SEQ 0034 


DZDUV-B MACY11 30(1046) 


DZ2DUVB. M11 


005060 


005064 
005072 
005100 


005102 
005106 


005110 


005110 
005112 
005120 
005126 
005134 
005140 
005146 
005150 
005152 
005154 
005156 


005160 
005164 
005170 


005176 


005200 
005204 
005210 
005214 
005216 
005220 


005222 
005224 


012716 


016777 
012777 
000002 


106427 
104004 


000004 
052777 
012777 
016777 
106427 
052777 
005000 
005200 
001376 
104004 
000425 


106427 
012716 
012777 


000002 


106427 
012716 
105777 
100401 
104004 
104004 


000002 
005000 


J 3 


21-SEP-77 09:27 PAGE 
31-MAY-77 09: 51 


005102 


174654 
000000 


000340 


000400 
005160 
011660 
000000 
000100 


000340 
005224 
005200 


000340 
005232 
174512 


174650 
174644 


174606 
174614 
174610 


174560 


174544 


37 
INITIALIZE THE COMMON TAGS 


MOV #34, (SP) + SET UP RETURN LOCATION 
+TO REPORT ERROR 

MOV DUTIS, dDUTIV RESTORE TRAPCATCHER 

MoV #0, dDUTIS ; 


RTI 
END OF INTERRUPT SVC ROUTINE 


>YOU SHOULD NOT GET INTO THIS FOLLOWING CODE UNLESS THERE 
WAS AN ERROR 
35: MTPS #340 ;DON'T ALLOW ANYMORE INTERRUPTS 
ERROR 4 ; INTERRUPT SHOULD NOT OF OCCURED, CHECK 
>THE INTERRUPT LEVEL SELECTED OR CHECK 
- + INTERRUPT LOGIC OR BOTH 


>; THIS TEST VERIFYS THAT TXDONE CAUSES ONLY ONE INTERRUPT 
+;PROVIDING THAT TXCSR IS NOT READ 

++AND TXOBUF IS NOT LOADED (WRITTEN) 

+; THIS TEST CHECKS THE ONCE ONLY FLIP/FLOP (V2) 

+;0F THE INTERRUPT CONTROL LOGIC 

>; INTERRUPT VECTOR: DUTIV 

*;NOTE: TXDONE = 1 AFTER A MASTER RESET 


Metetttttettittetttttetttttttttttsttstttitttttittstttitsits tts ie 
T SCOPE 


ST6: 
BIS #MRESET. @TXCSR ;MASTER RESET 
MoV #1%, dDUTIV ;SET UP TRAPCATCHER 
Mov DUPRT, dDUTIS j 
MTPS #0 ;ALLOW INTERRUPTS 
BIS #TXINTE, @TXCSR ;ENABLE INTR ENABLE 
CLR RO 
INC RO 
BNE eS 
ERROR a ; INTERRUPT FAILED TO OCCUR 
BR 4y 

>THE FOLLOWING |S THE INTR SVC ROUTINE 

1S: MTPS #340 >; DON'T ALLOW ANYMORE INTR 
MOV #35, (SP) ;SET UP RETURN LOCATION 
MOV #2%, dDUTIV ;SET UP TRAPCATCHER TO 


;PROVE THAT THE INTERRUPT DOES NOT OCCUR 
+ TWICE (AFTER RTI ‘ING FROM THIS 
+ SVC ROUTINE 


RTI 
; THE FOLLOWING INTERRUPT SVC ROUTINE WILL CATCH THE SECOND INTR 
2S: MTPS #340 or T ALLOW INTER 


MOV #4S, (SP +SET UP RETURN LOCATION 

TSTB aTXCSR ” -TXDONE = 1? 

BNI . +4 

ERROR 4 ; TXDONE SHOULD BE SET 

ERROR 4 ;THE INTERRUPT WAS TAKEN TWICE......... 


;CHECK OUT THE V2 FLIP/FLOP LOGIC 
>; IN THE INTERRUPT CONTROL LOGIC 


3$: CLR RO ;ALLOW TIME TO CATCH SECOND 


SEQ 0035 


| 


DZ0UV-B MACY11 30(1046) 


DZ0UVB. M11 


005226 
005230 
005232 
005240 
005246 
005254 


005260 
005262 


005270 
005276 


005304 


005312 
005320 
005326 


005334 
005342 


005350 


005456 


31-MAY-77 


005200 
001376 
016777 
012777 
042777 
106427 


000004 


052777 
012777 
052777 


012777 


012777 
112777 
012767 


052777 
042777 


052777 
042777 
005367 
001367 
012777 
016777 
106427 
052777 
005000 
005290 
001376 
104004 
000461 


012716 


2i-SP-77 GP: 


09: 51 


174506 
000000 
000100 
000340 


000400 
029000 
000400 


004020 


02€026 
000U25 
000010 


020000 
020000 


020000 
020000 
173532 


005432 
011406 


000000 
000140 


000340 
174264 


174254 


005616 


174502 
174476 
174452 


1744 36 
174424 
174422 


174414 


174402 
174404 
173566 


174364 
174356 


174350 
174342 


174342 
174336 


174306 


27 


4S: MOV 


K 3 


PAGE 38 
INITIALIZE THE COMMON TAGS 


RO ; 


IF IT WERE TO OCCUR 


.°2 , 
DUTIS, dDUTIV ;RESTORE TRAPCATCHER 


#0, dDUTIS ; 
@TXINTE-OTXCSR ; 


CLR INTERRUPT ENABLE 


#340 +RESTORE NO INTERRUPT STATIS 


3; THIS TEST VERIFYS THAT TWO INTERRUPTS THAT TRAP 
>; TO THE SAME VECTOR ARE BOTH EXECUTED 

> INTERRUPT VECTOR: DUTIV 
;;MODE: SYNC EXTERNAL 


5s MAERAKAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAS 


TST?: SCOPE 


BIS 
MoV 
BIS 


#MRESET,9TXCSR ; 
#SYNEXT, PARCSR 
@MRESET,dTXCSR ; 


> SET ve a MODE & SEND 
E: BIT WINDOWECLK ARE 


MOV 


#MINT! SEND, aTXCSR 


MASTER RESET 


+SET THE MODE 


MASTER RESET 


CLEARED (MTDATA=0) 


;SET MODE,.# OF BITS,PARITY SENSE.& LOAD SYNC REG 
MOV 


MOVB 


MOV 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS 


BIC 
15: 


#SYNEXT!E 1GHT! NOP 
#25, dTXOBUF ; 
#8. , SHIFT 


#CLK. aTXCSR 
#CLK, ATXCSR ; 


#CLK. ATXCSR 
#CLK, ATXCSR ; 
SHIFT 


1$ 
#2%, @DUTIV ; 
DUPRT. @DUTIS ; 


#0 ;ALLOW INTERRUPTS 
@TXINTE'DONAINTE. ATXCSR ; ENABLE INTERRUPTS 
RO 

RO ;WAIT FOR INTERRUPT 

* 3 

3$ ; JUMP AROUND SVC ROUTINES 


AR! 26. dPARCSR 
LOAD CHARACTER 


+POKE CLK UP 
POKE CLK DOWN 


+POKE CLK UP 


POKE CLK DOWN 


+LAST SHIFT? 


SET UP TRAPCATCHER 


; INTERRUPT FAILED TO OCCUR 


; THE a 1S THE 1ST INTERRUPT SVC ROUTINE 
28. ) #340 ;DON'T ALLOW AN’MORE INTERRUPTS 


@TXCSR ;DNA=0 ? 
. 4 


4 +DNA SHOULD NOT BE ASSERTED 


@TXCSR ;TXDONE = 
+4 


a 
#4S, (SP) 


1? 


FALSE INTERRUPT 
,SET UP RETURN LOCATION 


SEQ 0036 


L 3 
DZDUV-B MACY11 30(1046) 21-SEP-77 09:27 PAGE 39 


DZDUVB. M11 31-MAY-77 O09: 51 INITIALIZE THE COMMON TAGS SEQ 0037 
1736 005462 012777 OOSS544 174252 MOV #5%, dOUTIV ;SET UP oe 
1737 ;NOW POKE CLK TO BRING r DNA 
1738 005470 052777 020000 174230 BIS #CLK, dTXCSR ;POKE CLK 
1739 005476 112777 O00025 174226 MOVB #25, dTXOBUF ; JUST LOAD ANY CHAR TO CLR 
1740 ; TXDONE TO ALLOW SECOND INTERRUPT 
1741 005504 106427 000000 MTPS #0 ;ALLOW INTERRUPTS 
1742 005510 005000 CLR RO 
1743 005512 005200 INC RO ;WAIT FOR INTERRUPT 
1744 005514 001376 BNE ~=% 
1745 005516 042777 OO0149 174202 BIC RONAINTE!TXINTE, ATXCSR ; CLR INTR ENABLES 
pt 005524 104004 ERROR u ;2ND INTERRUPT FAILED TO OCCUR 
1748 005526 016777 174212 174206 6%: MoV DUTIS, dDUTIV ;RESTORE TRAPCATCHER 
1749 005534 012777 OOO000 174202 MoV #0, ADUTIS i 
shy 005542 000002 RTI 
1 
1752 ; THE FOLLOWING IS THE 2ND INTERRUPT SVC ROUTINE 
1753 005544 106427 000340 5S: MTPS #340 
1754 005550 005777 174152 TST aTXCSR + DNA 
1755 005554 100401 BM! +4 
1756 005556 104004 ERROR 4 ; FALSE INTERRUPT 
1757 005560 042777 OOO140 174140 BIC #DNAINTE!TXINTE, @TXCSR ;CLR BOTH INTR ENABLES 
1758 005566 012716 005526 MoV #6%, (SP) ; SETUP RETURN LOCATION 
the 005572 000002 RTI 
1 
1761 005574 016777 174144 174140 35: MOV DUTIS, aDUTIV ;RESTORE TRAPCATCHER 
ty 005602 012777 OOOVOO 174134 Mov #0, dOUTIS ; 
1 
phe 005610 042777 OOO140 174110 BIC RONAINTE! TXINTE, ATXCSR ; pag INTERRUPT 
176 ES 
fy 005616 106427 O00340 4S: MTPS #340 ;RESTORE NC INTERRUPT STATUS 
176 
1768 
1769 
1770 3; THIS TEST VERIFYS CTP MODE CIE SYSTST MODE) 
1771 3; 1T BASICALLY CHECKS THE EXISTANCE OF 
1772 3; THE FREE RUNNING OSCILLATOR 
1773 ;;MODE: SYNEXT 
1774 ;7LENGTH: EIGHT 
1775 >; THIS TEST USES BOTH THE RECEIVER & TRANSMITTER LOGIC 
1776 
1777 Fe 2 $9995 599505509 900000005050000050000000000008000000000000 0880) 
1778 005622 000004 TST10: SCOPE 
1779 > MAXXKKAAAAAAAAAAA AAA 
1780 005624 000167 000262 JMP 1$ ;NOP THIS TEST 
1781 > MAXXXKAAAAAAAAAA AAA AY 
1782 005630 052777 OO0400 174070 BIS #iMRESET.@TXCSR ;MASTER RESET 
1783 005636 012777 O20000 174056 MOV RSYNEXT. @PARCSR ; LOAD THE MODE 
1784 005644 052777 OOO4OO 174054 BIS @MRESET.@TXCSR ;MASTER RESET 
1785 005652 012777 026026 174042 MoV @SYNEXT'EIGHT!NOPAR!26. dFARCSR ;LOAD THE MODE. 
1786 ;# OF BITS PER CHAR. PARITY SENSE(NO PARITY). 
1787 > RSYNC CHARACTER (26) 
1788 005660 112777 000025 174044 MOVB #25. dTXOBUF >LOAD THE CHAR 
1789 005666 012777 005764 174042 MOV #29, dDUK IV *SET UP TRAPCATCHER 
1790 005674 016777 011112 174036 MoV DUPRT, dDURIS 


1791 005702 106427 000000 MTPS #0 ; ALLOW INTERRUPTS 
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005706 
005712 
005716 


005724 


016703 
012700 
012777 


052777 


005732 
005736 


005067 
005002 
005202 
001376 
005267 
022767 
002367 
104004 


005762 000422 


106427 
017704 
017701 
016777 
012777 
012716 
042777 
000002 


042777 
106427 
016777 
012777 
000415 


020001 
001401 
104002 
016703 
012700 
010401 
042701 
020001 
001401 
104091 


005764 
005770 
005774 
006000 
006006 
006014 
006020 
006026 


006030 


006056 


006060 
006062 
006064 
006066 
006072 
006076 
006100 
006104 
006106 
006110 


006112 


000004 
052777 
012777 


006112 
006114 
006122 


31-MAY-77 


NM 3 


21-SEP-77 09:27 PAGE 


09: 51 


174004 
000025 
014020 


000120 


173552 


173540 
000003 


000340 
173716 
173716 
173734 
000000 
006060 
000100 


000100 
000340 
173672 
000000 


173620 
000206 


177577 


000400 
030000 


174002 
173760 


173532 


173730 
172724 


173664 


173654 


173666 
173662 


173604 
173572 


40 
INITIALIZE THE COMMON TAGS 


MoV RXOBUF. R3 ;SET UP FOR ERROR MESSAGE 
MOV #25,R0 > EXPECTED 
MoV ASYSTST SEND, ATXCSR " = NOW LOAD SEND & 
BIS @SYNSCH!RINTEN, ARXCSR ;SET SEARCH SYNC & 
;RECEIVER INTERRUPT 
; ENABLE & WAIT FOR INTERRUPT 
CLR STMPS 
34: CLR R2 
INC R2 ;WAIT FOR INTERRUPT 
BNE -2 
INC STMPS 
CMP #3, STMPS 
BGE 
ERROR 4 ; INTERRUPT DIO NOT OCCUR 
BR 4§$ 
>THE FOLLOWING |S THE INTERRUPT SVC ROUTINE 
25: MTPS #340 ;PREVENT INTERRUPTS 
MOV ORXCSR, RY ; SAVE 
MoV ORXOBUF, R1 ; ACTUAL 
MOV DUR IS. dDUR IV ;RESTORE TRAPCATCHER 
MOV #0, dDURIS j 
MoV #5%, (SP) ;SET UP RETURN 
4,3 #RINTEN, ARXCSR ;CLR INTERRUPT ENABLE 
| 
4S: BIC #RINTEN. ARXCSR ;CLR INTERRUPT ENABLE 
MTPS #340 ;PREVENT INTERRUPTS 
MOV DUR IS, ADUR IV ;RESTORE TRAPCATCHER 
MOV #0, dDURIS ; 
BR 1$ 
5S: CMP RO.R1 
BEQ _ +4 
ERROR 2 > CHARACTERS DID NOT MATCH 
MOV RXCSR,R3 ; SETUP FOR ERROR MESSAGE 
MoV #200. RO 7 EXPECTED 
MoV R4,R1 > ACTUAL 
BIC #177577.R1 ; SAVE ONLY RXDONE 
CMP RO. R1 
BEQ + 
ERROR 1 ; FALSE INTERRUPT 


1S: 

>; THIS TEST VERIFYS CTP MODE (IE SYSTST MODE) 

3; 1T BASICALLY CHECKS THE EXISTANCE OF 

3; THE FREE RUNNING OSCILLATOR 

;;MODE: SYNINT 

>; LENGTH: EIGHT 

++ THIS TEST USES BOTH THE RECEIVER & TRANSMITTER LOGIC 


Petititittttittittttittttstiititsstsststtitsststtsttitettstttt ss! 


TST11: SCOPE 
@MRESET, dTXCSR ; MASTER RESET 


BIS 
MOV @SYNINT, DPARCSR ; SET THE MODE 


SEQ 0038 
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vB. mn 
1848 
9 


006130 


006136 


006144 
006152 


006160 
006164 
006166 
006170 
006172 
006176 
006204 
006206 
006214 
006222 
006230 
006236 
006242 
006246 
006252 


006260 
006264 


006306 
006312 


006416 
006420 


052777 


012777 


012777 
052777 


005067 
005002 
005202 
001376 
005267 
022767 
002367 
012777 
016777 
012777 
016777 
106427 
016703 
012700 
012767 


105767 
100402 
005367 
052777 
052777 
000167 


112777 
005067 


000540 
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09: 51 
000400 


014020 


036026 
000420 


173324 


173312 
000003 


006422 
010572 
006514 
010556 
o00c000 
173450 
000025 
000002 


172662 
172632 
000100 
000100 
000012 


000026 
173164 


173152 
000003 


000340 


000000 


173570 


173562 


173550 
173532 


173304 


173522 
172516 
173512 
173506 


172644 


173412 
173420 


173412 


173144 


173346 
173324 
173342 
173336 
173332 
173326 


N 3 


INITIALIZE THE COMMON TAGS 


BIS 


@MRESET.ATXCSR ; MASTER RESET 


+SET MAINTENANCE MODE & SEND 


MOV 


NOTE: BIT WINDOWRCLK ARE —_— (MTDATA=0) 


#SYSTST!SEND. @TXCS 


+ SET sag OF BITS. PARITY SENSE,& LOAD SYNC REG 


95: 


15: 
85: 


BIS 


#SYNINT!E IGHT! NOPAR ! 26, APARCSR 
#SYNSCH!ISTPSYN. @RXCSR + SET SEARCH SYNC & 
+ STRIP SYNC SO THAT RXDONE ASSERTS 

+WHEN CHAR "25" ARRIVES AND NOT BEFORE. . 

+ +e THEREFORE, SET STRIP SYNC 


sik bs WAIT FOR SYNSCH TO BE 


chock IN BY SYSTST CLK 
CLR STMPS 


™ 
R2 
R2 ; WAIT 
-2 
STMPS 
#3. STMPS 
.°20 +GO BACK TO CLR R2 AND WAIT SOME MORE 
#25, aDUR IV ;SET UP TRAPCATCHER 
DUPRT, dDURIS i 
#3%, DUT IV é 
DUPRT, @DUTIS ; 
#0 ;ALLOW INTERRUPTS 
RXOBUF,R3 ;SET UP FOR ERROR MSG 
#25,RO ;EXPECTED CHAR 
#2, COUNT 7# OF SYNC CHARS TO GET INTO 


+ SYNCRONIZATION 
SYNCNO ; TEST TO SEE HOW MANY SYNC CHARS NEEDED 


9% 

COUNT ;MAKE IT ONE LESS 

@RINTEN, ORXCSR ;>SET INTERRUPT ENABLES 
@TXINTE,@TXCSR ; 

8$ + THE FIRST XMIT INTERRUPT SHOULD COME 
>FROM TXDONE = 1 AFTER A MASTER RESET 

#26, aTXDBUF +LOAD SYNC CHAR 


5 
R2 >WAIT FOR INTERRUPT 


8$ 

#340 PREVENT INTERRUPTS 
#TXINTE,ATXCSR ;CLR INTR ENABLES 
@RINTEN, ARXCSR ; 

DUR IS, ADUR IV +RESTORE TRAPCATCHER 

#0. @DUR IS ; 

DUTIS, @DUTIV ; 

#0, dDUTIS 

4 + TXDONE INTERRUPT FAILED TO OCCUR 
7$ +GET OUT OF THE TEST 


>THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE 


SEQ 0039 


—— 


68 4 
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1904 006422 106427 000340 23: MTPS #340 ; PREVENT INTERRUPTS 
1905 006426 017704 173260 MOV ORXCSR, RY + SAVE 
1906 006432 017701 173260 MOV ORXOBUF. R1 + ACTUAL 
1907 006436 016777 173276 173272 MOV DUR IS, dDURIV ; RESTORE TRAPCATCHER 
1908 006444 012777 O00000 173266 MOV #0, dDURIS ; 
1909 006452 016777 173266 173262 MOV DUTIS, @DUTIV ; 
1910 006460 012777 QOO00000 173256 MOV #0, dDUTIS ; 
1911 Q064%66 012716 006646 MOV #4$, (SP) +SET UP RETURN LOCATION 
1912 006472 042777 O00100 173212 BIC #RINTEN. ARXCSR ;CLR INTERRUPT ENABLES 
1913 006500 042777 000109 173220 BIC #TXINTE,OTXCSR ; 
1914 006506 016705 172412 MOV COUNT. RS + SAVE COUNT 
1915 006512 000002 RTI 
1916 >END OF RECEIVER INTERRUPT SVC ROUTINE 
1917 ;.... THE FOLLOWING 1S THE XMITTER INTERRUPT SVC ROUTINE 
1918 006514 005367 172404 35: vEC COUNT 
1919 006520 100403 BMI 5% 
1920 006522 012716 006312 mov #1%, (SP) ;SET UP RETURN LOCATION 
1921 ; (LOAD SYNC CHARACTER AGAIN) 
1922 006526 000002 RTI 
1923 006530 012716 006536 5S: MOV #64, (SP) +SET UP RETURN LOCATION 
1924 006534 Cc00002 RTI 
1925 END OF XMITTER INTERRUPT SVC ROUTINE 
1926 006536 112777 000025 172166 6%: MOVB #25, dTXOBUF +LOAD CHARACTER 
1927 006544 042777 000100 173154 BIC RTXINTE, ATXCSR [CLR INTR ENABLE 
1928 006552 005067 172732 CLR STMPS 
1929 006556 005002 10S: CLR R2 ;WAIT FOR INTERRUPTC(RECE IVER) 
1930 006560 005202 INC R2 
1931 006562 601376 BNE . 8 ; 
1932 006564 005267 172720 INC STMPS 
1933 006570 022767 O00003 172712 CMP #3, STMPS 
1934 006576 002367 BGE 10$ 
1935 006600 106427 000340 MTPS #340 PREVENT INTERRUPTS 
1936 006604 042777 000100 173100 BIC @RINTEN, ARXCSR ;CLR INTR ENABLE 
1937 006612 016777 173122 173116 MoV DUR IS, ADUR IV RESTORE TRAPCATCHER 
1938 006620 012777 OO0000 173112 MOV #0, DUR IS ; 
1939 006626 016777 173112 173106 MOV DUTIS, dDUTIV ; 
1940 006634 012777 OO0000 173102 HOV #0, @0UTIS 
1941 006642 104004 ERROR 4 ; RECEIVER INTR FAILED TO OCCUR 
1942 00664% 000426 BR 7$ GET OUT OF TEST 
1943 006646 020001 4S: CMP RO,R1 
1944 006650 001401 BEQ . +4 
1945 006652 104002 ERROR 2 CHARACTERS DID NOT MATCH 
1946 006654 016793 173032 MOV RXCSR, RZ +SET UP FOR ERROR MSG 
1947 006660 012700 000200 MOV #200. R0 ; EXPECTED RXDONE 
1948 006664 010401 MOV R4Y,R1 = >; ACTUAL 
1949 006666 042701 177577 Bic #177577,R1 SAVE ONLY RXDONE 
1950 006672 020001 CMP RU,R1 
1951 006674 001401 BEQ . +4 
1952 006676 104001 ERROR 1 ;FALSE INTERRUPT 
1953 006700 020527 177777 CMP RS.#-1 ;WAS COUNT =-1 WHEN RECEIVER 
1954 + INTERRUPTED ? 
1955 006704 001401 BEQ . +4 
1956 006706 104004 ERROR 4 + 1F RS |S GREATER THAN -1........... 
1957 > THEN EITHER THE # OF SYNC STRAP IS WRONG 
1958 -OR RXDONE 1S OCCURING TOO SOON 


1959 006710 026727 172210 177777 CMP COUNT, #-1 


Cc (4 
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1960 006716 001401 BEQ . +4 
1961 006720 104004 ERROR y 1F THIS TEST FAILS,BUT THE ABOVE TEST 
1962 SDOESN'T. oe 1T MAY BE THAT CLEARING 
1963 ;TXINTE IN THE RECEIVER SVC ROUTINE 
1964 + 1S NOT STOPPING TXDONE INTERRUPTS ‘ 
dae 006722 106427 O00340 73: MTPS #340 >; INHIBIT INTERRUPTS 
1967 
1968 ;; THIS TEST VERIFYS MATCH DETECT & DATA RDY 
1969 >;FLAGS FOR EVERY POSSIBLE MATCH CHARACTER 
1970 ;+BY OBSERVING RECACT BIT 
1971 ;+1T WILL TAKE TWO SYNC % CHARACTERS TO GET RECACT BIT 
1972 32%: DEPENDENT ON MONITOR ............. 
1973 at ONE SYNC STRAP IS SELECTED . IT WILL 
1974 ;; ONLY TAKE ONE SYNC CHARACTER BEFORE RECACT TO 
1975 ++ ASSERT 
1976 >;MODE: SYNC INTERNAL 
1977 ;;LENGTH: FIVE 
1978 ;;>SYNC CHARACTER FOR MATCH: B/C 
a8 3; THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS 
1 oe 
1981 Pe oS 005000505000 00060 00090005009 000000000000055000509999900999 9905 
1982 006726 O00004 TST12: SCOPE 
1983 006730 052777 OO00400 172770 BIS #MRESET, ATXCSR ;MASTER RESET 
1984 006736 016703 172754 MOV RXDBUF, R3 ;SET UP FOR ERROR MESSAGE 
1985 ;SET SYNC INTERNAL. FIVE. NO PARITY, O SYNC REGISTER 
1986 006742 012704 030uU00 MoV #SYNINT!F IVE 'NOPAR, RY ; CREATE PARAMETERS 
1987 006746 012777 OO4O20 172752 6%: MoV #MINT!SEND, ATXCSR ;SET SEND & MAINT INTER 
1988 006754 010477 172742 MOV R4, APARCSR >LOAD CSR 
1989 006760 052777 000020 172724 BIS @SYNSCH, ARXCSR ;SET SYNC SEARCH 
1990 >POKE CLK TO GET INTO SYNCRONIZATION 
1991 ;BOTH THE LOGIC & RECEIVER 
1992 006766 052777 020000 172732 BIS SCLK. ATXCSR ;POKE CLK UP 
1993 006774 042777 O20000 172724 BIC #CLK. @TXCSR +POKE CLK DOWN 
1994 007002 110477 172724 MOVB R4, ATXDBUF ;LOAD DATA CHARACTER 
1995 ;POKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION 
1996 007006 052777 020000 172712 BIS #CLK. aTXCSR >POKE CLK UP 
1997 007014 042777 O20000 172704 BIC #CLK, ATXCSR ;POKE CLK DOWN 
1998 007022 032777 OO4000 172662 BIT #RECACT. ARXCSR ;RECACT ? 
1999 007030 001401 BEQ +4 
2000 007032 104004 ERROR 4 >RECACT SHOULD NOT BE SET 
2001 007034 000404 BR 4§ 
2002 007036 010477 172660 5S: MOV R4, APARCSR ;LOAD PARCSR WITH PARAMETERS 
2003 007042 110477 172664 MOvB R4, dTXOBUF >LOAD SYNC CHAR 
2004 007046 012767 OO00002 172050 4%: MOV #2, COUNT 7# OF SYNC CHARS 
2005 007054 005777 172646 23: TST aTXxCSR ;ONA ? 
2006 007060 100001 BPL +4 ;BR IF NOT SET 
2007 007062 104004 ERROR 4 ; DNA SHOULD NOT BE SET OR.. 
2008 ;1T SHOULD BE CLEARED FROM PREVIOUS READ 
2009 007064 012767 OO00005 172030 MOV #5. SHIFT 7# OF SHIFTS 
2010 007072 18. 
2011 007072 052777 020000 172626 BIS #CLK, ATXCSR +POKE CLK UP 
2012 007100 042777 O20000 172620 BIC #CLK, dTXCSR >POKE CLK DOWN 
2013 007106 005367 172010 DEC SHIFT ># OF SHIFTS 


2014 007112 001367 BNE 1$ 
2015 007114 005367 172004 DEC COUNT ;# OF SYNC CHARS 





- oO 4 ae ee 
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2016 007120 001403 BEQ 3$ 

2017 > TEST SYNCNO TO ce HOW MANY SYNC CHARACTERS NEEDED 

2018 007122 105767 172020 TSTB YNCNO 

2019 007126 100752 BNI 3 TWO SYNC a? 

2020 007130 032777 OO4000 172554 3%: BIT — SRXCSR ;RECACT 

2021 007136 001001 BNE . 

2022 007140 104004 ERROR * ;RECACT FAILED TO SET. POSS!BLE 

2023 ; THAT THE RECEIVER FAILED TO MATCH 

2024 ; THE SYNC CHARACTER 

2025 007142 017701 172559 MOV ORXOBUF, R1 >; SAVE ACTUAL 

2026 007146 010400 MoV R4,RO ; SAVE EXPECTED 

2027 007150 042700 177400 BIC #177400, R0 ;CLR UPPER BYTE 

2028 007154 0O2C001 CMP RO. R1 +00 THEY COMPARE 7? , 

2029 007156 001401 BEQ +4 

2030 007160 104002 ERROR 2 ae RECACT FAILED ALONG WITH THIS 

2031 1T PROBABLY |S A TRANSMITTER ERROR 

2032 ‘HOWEVER, 1F ONLY THIS FAILED iT 

2033 [PROBABLY 1S A RECEIVER ERROR 

2034 007162 104405 SCOP 1 

2035 »POKE CLK TO SEE ONA...ONA COMES UP ON THE FIRST 

2036 ;BIT OF THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO 

2037 ; TXOBUF 

2038 007164 052777 020000 172534 BIS #CLK, ATXCSR ;PCKE CLK UP 

2039 007172 005777 172530 TST aTXCSR ; DNA? 

2040 007176 100401 BMI +4 

2041 007200 104004 ERROR uy ;DNA DID NOT ASSERT 

2042 ;SET UP CONDITIONS FOR NEXT SYNC CHARACTER MATCH 

2043 007202 052777 OOO4OO 172516 BIS #MRESET, @TXCSR ;MASTER RESET 

2044 007210 032777 OO0020 172474 BIT #SYNSCH, ARXCSR > SYNC SEARCH = 9 ? 

2045 007216 001401 BEQ +4 

2046 007220 104004 ERROR 4 ;SYNC SEARCH SHOULD BE NOT SET 

2047 007222 005204 INC RY 

2048 007224 122704 9o00040 CMPB #40,R4 ; 1S THIS THE LAST CHARACTER 7? 

_ 007230 001246 BNE 6$ ;NO 

2051 >; THIS TEST VERIFYS MATCH DETECT & DATA ROY 

2052 ;;FLAGS FOR EVERY POSSIBLE MATCH CHARACTER 

2053 ;;BY OBSERVING RECACT BIT 

2054 ;;1T WILL TAKE TWO SYNC & CHARACTERS TO GET RECACT BIT 

2055 738: DEPENDENT ON. MONITOR ............. 

2056 33 1F ONE SYNC STRAP IS SELECTED . IT WILL 

2057 >, ONLY TAKE ONE SYNC CHARACTER BEFORE RECACT TO 

2058 77 ASSERT 

2059 ;;MODE: SYNC INTERNAL 

2060 >;LENGTH: Six 

2061 >; SYNC CHARACTER FOR MATCH: B/C 

2062 3; THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS 

2063 ae 

2064 Fe oo 395505550009 000 000000000000 0000 000500000000 000099 009000802 80 8 | 

2065 007232 O00004 TST13: SCOPE 

2066 007234 052777 OOO4OO 172464 BIS @MRESET. @TXCSR ;MASTER RESET 

2067 007242 016703 172450 MOV RXOBUF. R3 ;SET UP FOR ERROR MESSAGE 

2068 ;SET SYNC INTERNAL, SIX,NO PARITY.O SYNC REGISTER 

2069 007246 012704 032000 MoV &SYNINT!SIX!NOPAR, RY ; CREATE PARAMETERS 

2070 007252 012777 OO4020 172446 6%: MOV #MINT! SEND, dTXCSR ; SET SEND & MAINT INTER 


2071 007260 010477 172436 MOV R4, OPARCSR LOAD CSR 
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007264 


007272 
007300 
007306 


007312 
007320 
007326 
007334 
007336 
007340 
007342 
007346 
007352 
007360 
007364 
007366 


007370 
007376 
007376 
007404 
007412 
007416 
007420 
007424 


007426 
007432 
0074 34 
007442 
007444 


007446 
007452 
007454 
007460 
007462 
007464 


007466 


007470 
007476 
007502 
007504 


007506 
007514 


31-MAY- 
052777 


052777 
042777 
110477 


052777 
042777 
032777 
001401 
104004 
ooc4o04 
010477 
110477 
012767 
005777 
100001 
104004 


012767 


052777 
042777 
005367 
001367 
005367 
001403 


105767 
100752 
032777 
001001 
104004 


017701 
010400 
042700 
020001 
001401 
104002 


104405 


052777 
005777 
100401 
104004 


052777 
032777 
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000020 


020000 
020000 
172420 
020000 


020000 
004009 


172354 
172360 
000002 
172342 


000006 
020000 
020000 
171504 


171500 


171514 
004000 


172244 
177400 


020000 
172224 


000400 
000020 


172420 


172426 
172420 


172406 
172400 
172356 


171544 


171524 


172322 
172314 


172250 


172230 


. 


27 PAGE 45 
INITIALIZE THE COMMON TAGS 
BIS #SYNSCH, ORXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET INTO SYNCRONIZATION 
+;BOTH THE LOGIC & RECEIVER 
BIS #CLK, ATXCSR ;POKE CLK UP 
BIC #CLK, aTXCSR >POKE CLK DOWN 
MOVB R4, aTXOBUF ;LOAD DATA CHARACTER 
;POKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION 
BIS #CLK, aTXCSR >POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
BIT #RECACT. @RXCSR ;RECACT ? 
BEQ . +4 
pen ve ;RECACT SHOULD NOT BE SET 
5S: MOV R4, APARCSR ;LOAD PARCSR WITH PARAMETERS 
MOvB R4, ATXOBUF ;LOAD SYNC CHAR 
4g: MoV #2. COUNT 7# OF SYNC CHARS 
23: TST aTXxcCSR ;DNA ? 
BPL . +4 ;BR IF NOT SET 
ERROR 4 ;DNA SHOULD NOT BE SET OR.. 
Aes SHOULD BE CLEARED FROM PREVIOUS READ 
. MOV #6, SHIFT ;# OF SHIFTS 
1 7 
BIS #CLK, ATXCSR ;POKE CLK UP 
BIC #CLK, ATXCSR +POKE CLK DOWN 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ 
DEC COUNT ;# OF SYNC CHARS 
BEQ 3$ 
: TEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NECDED 
TSTB SYNCNO 
BMI 23 ; TWO SYNC CHARACTERS. . 
3S: BIT #RECACT, @ARXCSR -;RECACT ? 
BNE . +4 
ERROR 4 ;RECACT FAILED TO SET. POSSIBLE 
; THAT THE RECEIVER FAILED TO MATCH 
; THE SYNC CHARACTER 
MOV ORXOBUF,R1 > SAVE ACTUAL 
MoV R4,RO ;SAVE EXPECTED 
BIC #177400, RO ;CLR UPPER BYTE 
CMP RO. R1 ;D0 THEY COMPARE ? 
BEQ +4 
ERROR 2 ed RECACT FAILED ALONG WITH THIS 
1T PROBABLY 1S A TRANSMITTER ERROR 
SHOWEVER,.. . IF ONLY THIS FAILED IT 
: PROBABLY 1S A RECEIVER ERROR 
SCOP1 
;POKE CLK TO SEE DONA... ONA COMES UP ON THE FIRST 
;BIT OF THE NEXT CHARACTER IF NO CHARACTER !S LOADED INTO 
> TXDBUF 
BIS #CLK, dTXCSR >POKE CLK UP 
TST aTXCSR ;ONA? 
BNI +4 
ERROR uy ;DNA DID NOT ASSERT 
;SET UP CONDITIONS FOR NEXT SYNC CHARACTER MATCH 
BIS @MRESET, @TXCSR ;MASTER RESET 
BIT @SYNSCH. ARXCSR ;> SYNC SEARCH = 0 ? 


SEQ 0043 


FY er 
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2128 007522 001401 BEQ +4 
2129 007524 104004 ERROR 4 ;SYNC SEARCH SHOULD BE NOT SET 
2130 007526 005204 INC RY 
2131 007530 122704 900100 CMPB =—s-s« 100, R4 ; 1S THIS THE LAST CHARACTER 7 
2132 007534 001246 BNE 6$ ;NO 
2134 ;; THIS TEST VERIFYS MATCH DETECT & DATA RDY 
2135 7; FLAGS FOR EVERY POSSIBLE MATCH CHARACTER 
2136 ;;BY OBSERVING RECACT BIT 
2137 ;;1T WILL TAKE THO SYNC % CHARACTERS TO GET RECACT BIT 
2138 sok DEPENDENT ON MONITOR............. 
2139 ;; UF ONE SYNC STRAP IS SELECTED . IT WILL | 
2140 ;;ONLY TAKE ONE SYNC CHARACTER BEFORE RECACT TO 
2141 3; ASSERT | 
2142 ;;MODE: SYNC INTERNAL 
2143 ;;LENGTH: SEVEN 
2144 :;SYNC CHARACTER FOR MATCH: B/C 
2146 >; THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS 
2147 PPR TUSTTTECEETTTTT TTT TTT TT TTT TTT TTT TTT TTT TTT ee Tt ttt ttt ett t tt 
2148 007536 coo004 TST14: SCOPE 
2149 007540 052777 OO00400 172160 BIS #MRESET. aTXCSR ;MASTER RESET 
2150 007546 016703 172144 MOV RXDBUF, R3 [SET UP FOR ERROR MESSAGE 
2151 ;SET SYNC INTERNAL, SEVEN, NO PARITY.O SYNC REGISTER 
2152 007552 012704 034000 MoV #SYNINT!SEVEN!NOPAR,R4Y ; CREATE PARAMETERS 
2153 007556 012777 004020 172142 6%: MOV #MINT! SEND, aTXCSR ;SET SEND & MAINT INTER 
2154 007564 010477 172132 MoV R4, APARCSR ;LOAD CSR 
2165 007570 052777 000020 172114 BIS #SYNSCH, ARXCSR SET SYNC SEARCH 
2156 :POKE CLK TO GET INTO SYNCRONIZATION 
2157 ;BOTH THE LOGIC & RECEIVER 
2158 007576 052777 020000 172122 BIS #CLK, aTXCSR ;POKE CLK UP 
2159 007604 042777 020000 172114 BIC #CLK, aTXCSP ;POKE CLK DOWN 
2160 007612 110477 172114 MOVB = R4, aTXDBUF :LOAD DATA CHARACTER 
2161 [POKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION 
2162 007616 052777 020000 172102 BIS #CLK, aTXCSR ;POKE CLK UP 
2163 007624 042777 020000 172074 BIC #CLK, aTXCSR ;POKE CLK DOWN 
2164 007632 032777 OO4O00 172052 BIT BRECACT, ARXCSR :RECACT ? 
2165 007640 001401 BEQ +4 
2166 007642 104004 ERROR 4 ;RECACT SHOULD NOT BE SET 
2167 007644 00404 BR m3 
2168 007646 010477 172050 5S. MOV RY, APARCSR ;LOAD PARCSR WITH PARAMETERS 
2169 007652 110477 172054 MOVB ——R4, aTXDBUF ;LOAD SYNC CHAR 
2170 007656 012767 OO00002 171240 4S: Mov #2, COUNT 3 OF SYNC CHARS 
2171 007664 005777 172036 25. TST aTXCSR ;=DNA ? 
2172 007670 100001 BPL +4 :BR IF NOT SET 
2173 007672 104004 ERROR - ;DNA SHOULD NOT BE SET OR.. 
2174 ZT SHOULD BE CLEARED FROM PREVIOUS READ 
2175 007674 012767 000007 171220 MoV #7. SHIF # OF SHIFTS 
2176 007702 15 
2177 007702 052777 020000 172016 BIS #CLK, aTXCSR ;POKE CLK UP 
2178 007710 042777 020000 172010 BIC #CLK, aTXCSR ;POKE CLK DOWN 
2179 007716 005367 171200 DEC SHIFT  ;% OF SHIFTS 
2180 007722 001367 BNE 1§ 
2181 007724 005367 171174 DEC COUNT ;% OF SYNC CHARS 
2182 007730 001403 $ 


BEQ 3 
2183 ; TEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED 
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DZ2DuUVB. M11 31-MAY-77 O09: 51 INITIALIZE THE COMMON TAGS SEQ 0045 
2184 007732 105767 171210 TSTB SYNCNO 
2185 007736 100752 BMI 23 TWO SYNC ee 
2186 007740 032777 OOXOO0O 171744 35: BIT — ORXCSR ;RECACT 
2187 007746 001001 BNE : 
2188 007750 104004 ERROR . ;RECACT FAILED TO SET. POSSIBLE | 
2189 ; THAT THE RECEIVER FAILED TO MATCH 
2190 ; THE SYNC CHARACTER 
2191 007752 017701 171740 MOV ORXOBUF, R1 ;SAVE ACTUAL 
2192 007756 010400 MOV R4,RO ; SAVE EXPECTED 
2193 007760 042700 1774093 BIC #177400, R0 >CLR UPPER BYTE 
2194 007764 020001 CMP RO. R1 ;D00 THEY COMPARE 7? 
2195 007766 001401 BEQ +4 
2196 007770 104002 ERROR 2 “hg RECACT FAILED ALONG WITH THIS 
2197 1T PROBABLY IS A TRANSMITTER ERROR 
2198 ” SHOWEVER,... IF ONLY THIS FAILED IT 
2199 ; PROBABLY IS A RECEIVER ERROR 
2200 O007772 104405 SCOP1 
2201 >POKE CLK TO SEE DNA... ONA COMES UP ON THE FIRST 
2202 ;BIT OF THE NEXT CHARACTER IF NO CHARACTER |S LOADED INTO 
2203 , TXDBUF 
2204 007774 82777 O20000 171724 Bis #CLK, ATXCSR >;POKE CLK UP 
2205 010002 005777 171720 TST aTXCSR ;DNA? 
2206 010006 100401 BMI _ +4 
2207 010010 104004 ERROR 4 ;DNA DID NOT ASSERT 
2208 ;SET UP CONDITIONS FOR NEXT SYNC CHARACTER MATCH 
2209 010012 0652777 OO0C4O0 171706 BIS #MRESET, dTXCSR ;MASTER RESET 
2210 010020 032777 OO00U20 171664 BIT #SYNSCH, ARXCSR ; SYNC SEARCH = OG ? 
2211 010026 001401 BEQ +4 
2212 010030 104004 ERROR 4 ; SYNC SEARCH SHOULD BE NOT SET 
221 010032 005204 INC RY 
2214 010034 122704 900200 CMPB #200.R4 ; 1S THIS THE LAST CHARACTER ? 
he 010040 001246 BNE 6$ ;>NO 
1 
2217 :; THIS TEST VERIFYS MATCH DETECT & DATA RDY 
2218 >>FLAGS FOR EVERY POSSIBLE MATCH CHARACTER 
2219 >;BY OBSERVING RECACT BIT 
2220 >; 1T WILL TAKE TWO SYNC X CHARACTERS TO GET RECACT BIT 
2221 Pe DEPENDENT ON MONITOR ............. 
2222 >: 1F ONE SYNC STRAP IS SELECTED . IT WILL 
2223 ;;O0NLY TAKE ONE SYNC CHARACTER BEFORE RECACT TO 
2224 >; ASSERT 
2225 >;MODE: SYNC pees 
2226 > LENGTH: EIGHT 
2227 Ad hive CHARACTER FOR MATCH: B/C 
2228 ; THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS 
2229 
2230 PPTTTTEETTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT TITRE TTT TTT ETT TTT 
2231 010042 000004 TST15: SCOPE 
2232 010044 052777 QOOO4OO 171654 BIS @MRESET, @TXCSR ;MASTER RESET 
2233 010052 016703 171640 MoV RXDBUF,R3 ;SET UP FOR ERROR MESSAGE 
2234 ;SET SYNC INTERNAL. EIGHT.NO PAR!TY.O SYNC REGISTER 
2235 010056 012704 036000 MOV @SYNINT'EIGHT!NOPAR.RY ; CREATE PARAMETERS 
2236 010062 012777 OO4020 171636 6%: MOV #MINT! SEND. dTXCSR ;SET SEND & MAINT INTER 
2237 010070 010477 171626 MoV R4, APARCSR > LOAD CSR 
2238 010074 052777 000020 171610 BIS @SYNSCH, ARXCSR ;SET SYNC SEARCH 


2239 ;POKE CLK TO GET INTO SYNCRONIZATION 
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DZDUVB. M11 31-MAY-77 09: 51 INITIALIZE THE COMMON TAGS SEQ 0046 
2240 ;BOTH THE LOGIC & RECEIVER 
2241 010102 052777 O20000 171616 BIS #CLK, aTXCSR ;POKE CLK UP 
2242 010110 042777 O20000 171610 BIC ag tind ;POKE CLK DOWN 
2243 010116 110477 171610 MOVB R4, dTXOBUF ;LOAD DATA CHARACTER 
2244 ;POKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION 
2245 010122 052777 O20000 171576 BIS #CLK, dTXCSR ;POKE CLK UP 
2246 010130 042777 O20000 171570 BIC #CLK, ATXCSR ;POKE CLK DOWN 
2247 010136 032777 OO4O00 171546 BIT #RECACT, ARXCSR ;RECACT ? 
2248 010144 001401 BEQ . +4 
2249 010146 104004 ERROR 4 ;RECACT SHOULD NOT BE SET 
2250 010150 000404 er ug 
2251 010152 010477 171544 5S: MOV R4, OPARCSR ;LOAD PARCSR WITH PRRAMETERS 
2252 010156 110477 171550 MOVB R4, dTXOBUF ;LOAD SYNC CHAR 
2253 010162 012767 O00002 170734 4%: MOV #2, COUNT ;# OF SYNC CHARS 
2254 010170 005777 171532 23: TST aTXCSR ;ONA ? 
2255 010174 100001 BPL +4 ;BR IF NOT SET 
2256 010176 104004 ERROR 4 ;DNA SHOULD NOT BE SET OR... 
2257 ; 1T SHOULD BE CLEARED FROM PREVIOUS READ 
2258 010200 012767 OO00010 170714 MOV #8.,SHIFT ;# OF SHIFTS 
2259 010206 15: 
2260 010206 052777 O20000 171512 BiS #CLK, aTXCSR ;POKE CLK UP 
2261 010214 042777 O20000 171504 BIC #CLK, dTXCSR >POKE CLK DOWN 
2262 010222 005367 170674 DEC SHIFT ;# OF SHIFTS 
2263 010226 001367 BNE 1$ 
2264 010230 005367 170670 DEC COUNT ;# OF SYNC CHARS 
2265 010234 001403 BEQ 3$ 
2266 >; TEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED 
2267 010236 105767 170704 TSTB SYNCNO 
2268 010242 100752 BM! 23 ; TWO SYNC CHARACTERS. 
2269 010244 032777 OO4O00 171440 3%: BIT #RECACT. @ARXCSR ;RECACT ? 
2270 010252 001001 BNE +4 
2271 010254 104004 ERROR 4 ;RECACT FAILED TO SET. POSSIBLE 
2272 ; THAT THE RECEIVER FAILED TO MATCH 
2273 ; THE SYNC CHARACTER 
2274 #010256 017701 171434 MOV ORXDBUF,R1 > SAVE ACTUAL 
2275 010262 010400 MOV R4,RO ;SAVE EXPECTED 
2276 010264 042700 177400 BIC #177400, RO ;CLR UPPER BYTE 
2277 010270 020001 CMP RO. R1 >DO THEY COMPARE ? 
2278 010272 001401 BEQ +4 
2279 010274 104002 ERROR 2 > 1F RECACT FAILED ALONG WITH THIS 
2280 IT PROBABLY |S A TRANSMITTER ERROR 
2281 S HOWEVER... 1F ONLY THIS FAILED IT 
2282 ;PROBABLY IS A RECEIVER ERROR 
2283 010276 104405 SCOP 1 
2284 ;POKE CLK TO SEE DNA... DONA COMES UP ON THE FIRST 
2285 ;BIT OF THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO 
2286 ; TXDSUF 
2287 010300 052777 O20000 171420 BIS #CLK, aTXCSR ;POKE CLK UP 
2288 010306 005777 171414 TST @TXCSR ;ONA? 
2289 010312 100401 BNI a) 
2290 010314 104004 ERROR 4 ;DNA DID NOT ASSERT 
2291 ;SET UP CONDITIONS FOR NEXT SYNC CHARACTER MATCH 
2292 010316 052777 OO00400 171402 BIS @MRESET, dTXCSR ;MASTER RESET 
2293 010324 032777 000020 171360 BIT #@SYNSCH, ARXCSR ; SYNC SEARCH =. 9 ? 
2294 010332 001401 BEQ +4 


2295 010334 104004 ERROR 4 > SYNC SEARCH SHOULD BE NOT SET 
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SEQ 0047 
2296 010336 005204 INC RY 
2297 010340 122704 000000 CMPK = s«#0,R4 = 1S THIS THE LAST CHARACTER 7? 
2298 010306 001246 BNE 6$ NC 
2300 ;; THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON 
2301 BOTH THE TRANSMITTER AND RECEIVER LOGIC 
2302 ;;MODE: SYNC EXTERNAL (SYNEXT) 
2303 >; LENGTH: EIGHT PLUS PARITY 
2304 7; PARITY: EVEPAR 
2305 ; MAINT. MODE: MINT 
2307 oe 2 $6 09000000500005000000000000000000000059599595999 9999 39> 929 0 2 | 
2308 010346 oocoo4 TST16: SCOPE 
2309 010350 052777 000400 171350 BIS BMRESET, aTXCSR = MASTER RESET 
2310 O1035¢ 012777 020000 171336 Mov BSYNEXT, PARCSR ; SET THE MODE 
2311 010364 052777 000400 171334 BIS @MRESET, aTXCSR MASTER RESET 
2313 ;SET MAINTENANCE MODE & SEND 
2314 ;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
2315 010372 012777 004020 171326 Mov #NINT!SEND. aTXCSR 
1 
2317 ;SET MODE. ® OF BITS. PARITY SENSE.& LOAD SYNC REG 
2318 O10400 012777 027426 171314 Nov #SYNEXT!E IGHT!EVEPAR ! 26, JPARCSR 
2319 O10406 016703 171304 Mov RXDBUF, R3 ;SETUP FOR ERROR MSG 
2320 010412 005004 CLR Ru FOR DATA CHAR CREATION 
2321 O10414 110477 171312 MOVB —s-R4, aTXDBUF ;LOAD CHARACTER 
2322 010420 052777 O00U20 171264 BIS RSYNSCH, ARXCSR ; SET SEARCH SYNC 
2323 GET INTO SYNCRONIZATION 
2324 010426 052777 020000 171272 BIS #CLK, aTXCSR ;POKE CLK UP 
2325 010434 042777 020000 171264 BIC #CLK, aTXCSR ;POKE CLK DOWN 
2326 O10442 012767 000011 170452 15: Mov #9... SHIFT ;# OF SHIFTS 
2327 010450 010400 Mov RU,RO  ; EXPECTED 
2328 010452 28 
2329 010452 052777 020000 171246 BIS #CLK, aTXCSR ;POKE CLK UP 
2330 010460 042777 020000 :71240 BIC #CLK, aTXCSR ;POKE CLK DOWN 
2331 010466 005367 170430 DEC SHIFT ;# OF SHIFTS 
2332 010472 022767 000003 170422 CMP #3, SHIFT ; TIME TO LOAD NEXT CHAR ? 
2333 010500 001003 BNE 38 NO ? 
2334 010502 005204 INC RY GENERATE NEXT CHAR 
2335 O10504 110477 171222 MOVE RY. ATXDBUF ;LOAD NEXT CHARACTER 
2336 010510 005767 170406 38: TST SHIFT :1S ITO? 
2337 010514 001356 BNE 28 
2338 010516 105777 171170 TSTB = RXCSR_—- | RXDONE = 1 ? 
2339 010522 100401 BNI +4 
2340 010524 104004 ERROR 4 ;RXDONE SHOULD BE SET 
2341 010526 017701 171164 Mov ARXDBUF. Rt ; ACTUAL 
2342 010532 020001 CHP RO.R1  ; COMPARE EXP VS ACT 
2343 010534 001401 BEQ +4 
2344 010536 104002 ERROR 2 ; CHARACTERS SHOULD COMPARE 
2345 010540 105704 TSTB. RM ;LAST CHARACTER * 
2346 010542 001337 BNE 15 ; NO 
2347 010544 4S 
2348 ;; THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON 
2349 ;;BOTH THE TRANSMITTER AND RECEIVER LOGIC 
2350 ; MODE: SYNC EXTERNAL (SYNEXT) 
2351 >; LENGTH: EIGHT PLUS PARITY 
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010544 
010546 
010554 
010562 


010570 


010576 
010604 
010610 
010612 
010616 


010624 
010632 
010640 
010646 
010650 
010650 
010656 
010664 
010670 
010676 
010700 
010702 
010706 
010712 
010714 
010720 
010722 
010724 
0107390 
010732 
010734 
010736 
010740 
010742 


010742 
010744 
010750 
010752 
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000004 
052777 
012777 
052777 


012777 


012777 
016703 
005004 
110477 
052777 


052777 
042777 
012767 
010400 


052777 
042777 
005367 
022767 
001003 
005204 
110477 
005767 
001356 
105777 
100401 
104004 
017701 
020001 
001401 
104002 
105704 
001337 


000004 
105767 
100116 
052777 


21-SEP-77 09: 


09: 51 


000400 
020000 
000400 


004020 
027026 
171106 


171114 
000020 


020000 


020000 
000011 


92C000 
020u00 
170232 
000003 


171024 
170210 
170772 


170766 


170203 
000400 


171152 
171140 
171136 


171130 


171116 


171066 
171074 


171066 
170254 


171050 
171042 
170224 


170746 
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27 PAGE 50 
INITIALIZE THE COMMON TAGS 
>; PARITY: ODDPAR 
+; MAINT. MODE: MINT 
rs 
BIS @MRESET. @TXCSR ;MASTER RESET 
MOV @SYNEXT, APARCSR ; SET THE MODE 
BIS @MRESET,@TXCSR ;MASTER RESET 
; SET aye oy MODE & SEND 
TE: BIT WINDOWBCLK ARE CLEARED (MTOATA=0) 
same #MINT! SEND, dTXCSR 
;SET MODE,.® OF BITS. PARITY SENSE.& LOAD SYNC REG 
MOV #SYNEXT!E I GHT! ODDPAR ! 26, aPARCSR 
MOV RXOBUF, R3 ;SETUP FOR ERROR MSG 
CLR RY ;FOR DATA CHAR CREATION 
MOVB R4, aTXDBUF ;LOAD CHARACTER 
BIS RSYNSCH, ARXCSR ;SET SEARCH SYNC 
;GET INTO SYNCRONIZATION 
BiS #CLK, aTXCSR ;>POKE CLK UP 
BIC #CLK, aTXCSR ;POKE CLK DOWN 
15: MOV #9.,SHIFT ;# OF SHIFTS 
am MOV R4Y,RO ;EXPECTED 
BIS #CLK, ATXCSR ;POKE CLK UP 
BIC #CLK, ATXCSR >;POKE CLK DOWN 
DEC SHIFT ;# OF SHIFTS 
CMP #3, SHIFT > TIME TO LOAD NEXT CHAR ? 
BNE 3$ ;NO ? 
INC R4 ; GENERATE NEXT CHAR 
MOVB R4, aTXDBUF ;LOAD NEXT CHARACTER 
35: TST SHIFT 306 17 67 
BNE 23 
TSTB ARXCSR ;RXDONE = 1 ? 
BMI +4 
ERROR u ;RXDONE SHOULD BE SET 
MOV ORXDBUF,R1 > RCTUAL 
CMP RO, R1 ; COMPARE EXP VS ACT 
BEQ +4 
ERROR 2 ; CHARACTERS SHOULD COMPARE 
TSTB PY ;LAST CHARACTER ? 
BNE 1% ; NO 
4S: 
:; THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON 
;;BOTH THE TRANSMITTER AND RECEIVER LOGIC 
3;MODE: SYNC EXTERNAL (SYNEXT) 
;; LENGTH: EIGHT PLUS PARITY 
>; PARITY: EVEPAR 
;; MAINT. MODE: MEXT 
Fe $6055 5955050905900 000 0000000000 0000500000008 0 800000 F 00808988 8 | 
TST20: SCOPE 
TSTB JMRBY  ; JUMP AROUND TEST ? 
BPL 4g ;YES ? 
BIS #MRESET. aTXCSR ;MASTER RESET 


SEQ 0048 


—* 
| 
| 
| 
| 
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DZ0UVB. M11 31-MAY-77 09: 51 INITIALIZE THE COMMON TAGS SEQ 0049 
2408 010760 012777 O20000 170734 MOV #SYNEXT, OPARCSR ; SET THE MODE 
Ney 010766 052777 O00400 170732 BIS MMRESET.QTXCSR ;MASTER RESET 
2411 + SET MAINTENANCE MODE & SEND 
2412 NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
es 010774 612777 010020 170724 MOV #MEXT! SEND, ATXCSR 
2415 ;SET MODE.# OF BITS.PARITY SENSE.& LOAD SYNC REG 
2416 011002 012777 027426 170712 MOV #SYNEXT!E IGHT!EVEPAR ! 26, aPARCSR 
2417 011010 016703 170702 MOV RXOBUF. R3 SETUP FOR ERROR MSG 
2418 011014 005004 CLR R4 + FOR DATA CHAR CREATION 
2419 011016 110477 170710 MOVB R4, ATXDBUF LOAD CHARACTER 
2420 011022 052777 000020 170662 BIS #SYNSCH. ARXCSR ;SET SEARCH SYNC 
2421 GET INTO SYNCRONIZATION 
2422 011030 052777 020000 170670 BIS #CLK, aTXCSR +POKE CLK UP 
2423 ;WAIT FOR CABLE & DRIVER DELAYS 
2424 011036 016702 170056 MOV HOLD.R2 ;WAIT THIS AMT 
2425 011042 005302 DEC R2 + WAIT 
2426 011044 001376 BNE -2 
2427 sEXIT... 
2428 011046 042777 O20000 170652 Bic #CLK, dTXCSR >POKE CLK DOWN 
2429 ;WAIT FOR CABLE & DRIVER DELAYS 
2430 011054 016702 170040 MOV HOLD.R2 ;WAIT THIS ANT 
2431 011060 005302 DEC R2 ; WAIT 
2432 011062 001376 BNE 3 
2433 sEXIT... 
2434 011064 012767 O00U11 170030 1%: MoV #9. SHIFT ;# OF SHIFTS 
2435 011072 010400 MOV R4Y,RO ;EXPECTED 
2436 011074 28: 
2437 011074 052777 020000 170624 BIS #CLK, ATXCSR +POKE CLK UP 
2438 ;WAIT FOR CABLE & DRIVER DELAYS 
2439 011102 016702 170012 MoV HOLD. R2 ;WAIT THIS AMT 
2440 011106 005302 DEC R2 WAIT 
2441 011110 001376 BNE 3 
2442 sEXIT... 
2443 011112 042777 020000 170606 BIC #CLK. @TXCSR +POKE CLK DOWN 
2444 ;WAIT FOR CABLE & DRIVER DELAYS 
2445 011120 016702 167774 MoV HOLD,.R2 :WAIT THIS AMT 
2446 01112% 005302 DEC R2 WAIT 
2447 011126 001376 BNE ~93 
2448 sERIT... 
2449 011130 005367 167766 DEC SHIFT ;# OF SHIFTS 
2450 011134 022767 OO00003 167760 CMP #3, SHIFT + TIME TO LOAD NEXT CHAR ? 
2451 011142 001003 BNE 3$ *NO ? 
2452 011144 005204 INC R4 ;GENERATE NEXT CHAR 
2453 011146 110477 170560 MOVB R4, dTXOBUF * LORD NEXT CHARACTER 
2454 011152 005767 167744 3$: TST SHIFT cIS ITO? 
2455 011156 001346 BNE 2$ 
2456 011160 105777 170526 TSTB ORXCSR ;RXDONE = 1 ? 
2457 011164 100401 BMI . +4 
2458 011166 104004 ERROR 4 : RXDONE eg BE SET 
2459 011170 017701 170522 MoV ORXDBUF. R1 ACTUAL 
2460 011174 020001 CMP RO,R1 ; COMPARE. EXP us ACT 
2461 011176 001401 BEQ +4 
2462 011200 104002 ERROR 2 CHARACTERS SHOULD COMPARE 


2463 CHECK OUT MODEM BYPASS JUMPER 
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2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 


011202 
011204 
011206 


011206 
011210 
011214 
011216 
011224 
011232 


011240 


011246 
011254 
011260 
011262 
011266 


011274 


011302 
011306 
011310 


011312 


011320 
011324 
011326 


011330 
011336 
011340 
011340 


011346 
011352 
011354 


011356 
011364 


011370 
011372 
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105704 
001327 


000004 
105767 
100116 
052777 
012777 
052777 


012777 


012777 
016703 
005004 
110477 
052777 


£52777 
016702 
005302 
001376 
042777 
016702 
005302 
001376 


012767 
010490 


052777 
016702 
005302 
001376 
042777 
016702 


005302 
001376 
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167737 
000400 


020000 
000400 


010020 
027026 
170436 


170444 
000020 


020000 
167612 


020000 


167574 


000011 


020000 


167546 


020000 
167530 


170502 
170470 
170466 


1706460 


170446 


170416 


170424 


170406 


167564 


170360 


170342 


52 
INITIALIZE THE COMMON TAGS 


TSTB RY ;LAST CHARACTER ? 
BNE 1$ ;NO 


++ THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON 
++BOTH THE TRANSMITTER AND RECEIVER LOGIC 

+; MODE: SYNC EXTERNAL (SYNEXT) 

++ LENGTH: EIGHT PLUS PARITY 

++PARITY: ODDPAR 

++ MAINT. MODE: MEXT - 


Mecttttttttittcttttttttttitttitttttsitttttsittttsttttttsstt tts ts: 
TST21: SCOPE 


TSTB JMRBY + JUMP _FROUND TEs? 7 
BPL 4$ Yes ? 

BIS #MRESET, aTXCSR ;MASTER RESET 
MOV #SYNEXT, APARCSR ; SET THE MODE 
BIS #MRESET, ATXCSR ; MASTER RESET 


> SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
Mov #MEXT! SEND, dTXCSR 


SET MODE, # OF BITS,PARITY SENSE.& LOAD SYNC REG 
MOV #SYNEXT!E 1GHT! ODDPAR ! 26. APARCSR 


4S: 


MOV RXDBUF. R3 +SETUP FOR ERROR MSG 
CLR R4 ;FOR DATA CHAR CREATION 
MOVB R4, dTXOBUF ;LOAD CHARACTER 


BIS #SYNSCH, ARXCSR ;>SET SEARCH SYNC 
>GET INTO SYNCRONIZATION 

BIS #CLK, ATXCSR +POKE CLK UP 

+WAIT FOR CABLE & DRIVER DELAYS 

MoV HOLD.R2 ;WAIT THIS ANT 


DEC R2 ; WAIT 

BNE .°2 

SERN... 

BIC #CLK, ATXCSR >POKE CLK DOWN 


;WAIT FOR CABLE & DRIVER DELAYS 
MOV HOLD.R2 :WAIT THIS AMT 


DEC R2 ; WAIT 
BNE . 8 
sEXIT... 
1$: MoV 89. SHIFT ;# OF SHIFTS 


MOV R4Y,RO ;EXPECTED 


BIS #CLK. ATXCSR +POKE CLK UP 
;WAIT FOR CABLE & DRIVER DELAYS 

MOV HOLD,RZ2 ;WAIT THIS ANT 

DEC R2 WAIT 

BNE .°2 


BIC #CLK, ATXCSR +POKE CLK DOWN 
;WAIT FOR CABLE & DRIVER DELAYS 

MoV HOLD.R2 ;WAIT THIS ANT 

DEC R2 WAIT 

BNE .°2 


2$: 


SEQ 0050 
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011374 
011400 
011406 
011410 
011412 
011416 
011422 
011424 
011430 
011432 
011434 
011440 
011442 
011444 


011446 
011450 
011452 


011452 
011454 
011462 
011470 


011476 
011504 


011512 


011520 
011526 


011534 


011616 
011620 
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005367 
022767 
001003 
005204 
110477 
005767 
001346 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


105704 
001327 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 


104002 
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167522 
000003 


170314 
167500 


170262 


170256 


000400 
000000 
000400 


064001 


000000 
000020 


020000 
020000 


020000 
020000 
170142 
000012 
000007 
000124 
005352 
170106 


170102 


167514 


170244 
170232 
170230 


170222 
170210 


170172 


170200 
170172 


170164 
170156 


167334 
167704 


53 
INITIALIZE THE COMMON TAGS 
DEC SHIFT ;# OF SHIFTS 


CMP #3, SHIFT ; TIME TO LOAD NEXT CHAR ? 
BNE 3$ ;NO ? 
INC R4Y ; GENERATE NEXT CHAR 
MOVB R4, dTXOBUF — NEXT CHARACTER 
34: TST SHIFT ;IS I7T0 7? 
BNE 23 
TSTB @RXCSR ;RXDONE = 1 ? 
BMI . +4 
ERROR 4 +> RXDONE SHOULD BE SET 
MoV ORXOBUF, R1 UAL 
CMP RO.R1 ; COMPARE. EXP VS ACT 
BEQ . +4 
ERROR 2 ; CHARACTERS SHOULD COMPARE 
; CHECK OUT MODEM BYPASS JUMPER 
TSTB RY ;LAST CHARACTER ? 
- BNE 1$ + NO 
+; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
>, RECEIVER SECTION. IT USES THE ERROR FLAGS 
3,70 DETERMINE THAT IT WAS SELECTED CORRECTLY 
+ COVRRUN, RXERR) 
;, MODE: ISYMOD 
>; LENGTH: FIVE 
>; CHAR: 12 
Fe oo 9005559505 0000050005000000000005000 000500000000 09 9595099 82 2d | 
TST22: SCOPE 
BIS #MRESET. @TXCSR ;MASTER RESET 
MOV #ISYMOD, APARCSR ; SET THE MODE 
BIS @MRESET. @TXCSR ;MASTER RESET 
;SET MAINT DATA, CLK, BREAK. &MAINTENANCE MODE 
MoV #MTDATA'CLK'MINT' BREAK, dTXCSR 
;SET MODE .# OF BITS.PARITY SENSE.&LOAD SYNC REG 
MoV #I1SYMOD!F IVE 'NOPAR!0., dPARCSR 
BIS #SYNSCH, ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
BIC #CLK, ATXCSR ;POKE CLK DOWN 
BIS #CLK, ATXCSR ;POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, ATXCSR + POKE se “i 
BIS #CLK, dTXCSR ;POKE CLK 
MoV RXDBUF.R3 >SET UP ron ERROR MESSAGE 
MOV #12,RO0 ;EXPECTED 
MOV #7, SHIFT ;# OF SHIFTS 
MOV #124, STMP1 ;DATA CHAR 
JSR PC, RPOKE ;SHIFT !N THIS CHAR 
TSTB —s >RXDONE ? 
BNI : 
ERROR ‘y ;RXDONE SHOULD BE SET 
MOV @RXDBUF. R1 ;ACTUA 


CTUAL 
CMP RO.R1 ;COMPARE EXPECTED VS. ACTUAL 


BEQ . +4 
ERROR 2 >RECEIVED DATA DID NOT MATCH 


SEQ 0051 





b20UV 


011622 
011630 
011636 


011642 
011650 
011656 
011662 


011666 
011672 
011674 
011676 


011700 
011702 
011710 
011716 


011724 
011732 


011740 


011746 
011754 


011762 


012044 
012046 


DZ0UV-B MACY11 30(1046) 
Mit 31-MAY-77 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


N 4 
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000007 
000124 
005310 


000007 
000124 
005270 
140012 


170024 


000400 
000000 
000400 


064001 


000000 
000020 


020000 
020000 


020900 
020700 
167714 
000037 
000007 
000176 
005124 
167660 


167654 


167272 
167642 


167252 
167622 


170016 
170004 
170002 


167774 
167762 


167744 


167752 
167744 


167736 
167730 


167106 
167456 


54 
INITIALIZE THE COMMON TAGS 


+EXPECTED DATA - CHECK MAINT DATA 
OR meee —s 
MOV #7, SHIFT # OF SHI Ag 
MOV #124, STMP1 ;DATA CHA 
JSR PC, RPOKE + SHIFT iN THIS CHAR 
+NOW SHIFT IN A oer CHARACTER WITHOUT READING RXDBLF 
MOV HIFT OF SHIFTS 


MoV ti2e, STHPA ; DATA CHAR 
+SHIFT IN THIS CHAR 


MOV #140000! 12, RO EXPECTED DATA PLUS 
oat, & OVRRUN 
MOV ORXDBUF. R1 


ACTU 
CMP RO. R1 ; COMPARE. EXP “US. ACT 


8 . +4 
ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
;OVRRUN BITS... THEY BOTH SHOULD BE SET 


>: THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
>+RECEIVER SECTION, IT USES THE ERROR FLAGS 

+7 TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
++ COVRRUN. RXERR) 

>; MODE: ISYMOD 

+; LENGTH: FIVE 

>> CHAR: 37 


2s RAEXAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA EX 
TST23: SCOPE 

BIS #MRESET.2TXCSR ;MASTER RESET 

MOV #ISYMOD, @PARCSR ;SET THE MODE 

BIS #MRESET.@TXCSR ; MASTER RESET 


*+SET MAINT DATA. CLK. BREAK, &MAINTENANCE MODE 
MoV #MTDATA!CLK!MINT!BREAK, dTXCSR 


+SET MODE .# OF BITS.PARITY SENSE. &LOAD SYNC REG 
MOV # |SYMOD!F IVE !NOPAR !0, @PARCSR 
BIS #SYNSCH, ARXCSR ;SET SYNC SEARCH 
+POKE CLK TO GET RECEIVER a iy pphanene ae 
BIC #CLK, ATXCSR +POKE CLK DOWN 
BIS #CLK, d@TXCSR + POKE CLK UP 
+POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK. aTXCSR +POKE CLK — 
BIS #CLK, ATXCSR +POKE CLK 


MOV RXDBUF. R3 + SET UP FOR ERROR MESSAGE 

MOV #37,RO ;EXPECTED 

MOV #7, SHIFT :# OF SHIFTS 

MOV #176, STMP1 DATA CHAR 

JSR PC, RPOKE +SHIFT IN THIS CHAR 

ania — +RXDONE ? 

aL 

ERROR 4 ; RXDONE SHOULD BE SET 

MOV ORXOBUF, R1 ACTUAL 

RO, Ri ; COMPARE EXPECTED VS. ACTUAL 
Q _ +4 

ERROR 2 *RECEIVED DATA DID NOT MATCH 


EXPECTED DATA - CHECK MAINT DATA 


SEQ 0052 
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012050 
012056 
012064 


012070 
012076 
012104 
012110 


012114 
012120 
012122 
012124 


012126 
012130 
012136 
012144 


012152 


012160 
012166 


012174 
012202 


012210 


012274 


31-MAY-77 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


01770: 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 
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000007 
000176 
005062 


000007 
000176 
005042 
140037 


-167576 


000400 
000060 
000400 


064001 


000000 
000020 


020000 
020000 


020000 
020000 
167466 
000000 
000007 
000100 
004676 
167432 


167426 


167044 
167414 


167024 
167374 


167570 
167556 
167554 


167546 
167534 


167516 


167524 
167516 


167510 
167502 


166660 
167230 


55 
INITIALIZE THE COMMON TAGS 
7OR RECEIVER LOGIC 


MOV #7, SHIFT +# OF SHIFTS 

MOV #176, STMP1 ; DATA CHAR 

JSR PC, RPOKE +SHIFT IN THIS CHAR 
NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 

MOV #7, SHIFT +# OF SHIFTS 

MOV #176, STMP1 ; DATA CHAR 

JSR PC, RPOKE ;SHIFT IN THIS CHAR 


MOV #140000!37,R0 ;EXPECTED DATA PLUS 
+ RXERR & OVRRUN 
MOV ORXDOBUF.R 


+ ACTUAL 
CMP RO, R1 COMPARE EXP VS. ACT 
BEQ +4 
ERROR 2 +SPECIFICALLY LOOK AT RXERR & 
;OVRRUN BITS... THEY BOTH SHOULD BE SET 


3; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;;RECEIVER SECTION, IT USES THE ERROR FLAGS 
;;TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
++ COVRRUN, RXERR) 

;+MODE: ISYNOD 

>; LENGTH: FIVE 

>> CHAR: O 


3 5 MAXKAAAAAAAA AAA RAK AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
TSTZ4: SCOPE 

BIS RMRESET,dTXCSR -;MASTER RESET 

MoV RISYMOD, APARCSR ; SET THE MODE 

BIS RMRESET, @TXCSR ; MASTER RESET 


;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
MOV RMTDATA'CLK! MINT! BREAK, dTXCSR 


;SET MODE .# OF BITS,PARITY SENSE.&LOAD SYNC REG 
Mov # |SYMOD!F IVE 'NOPAR!O, dPARCSR 
BIS @SYNSCH, ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION... 
BIC #CLK, @TXCSR +POKE CLK DOWN 


BIS #CLK, ATXCSR ;POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, @TXCSR ;POKE CLK — 
BIS #CLK, @TXCSR +POKE CLK 
MOV RXDBUF, R3 ;SET UP ron ERROR MESSAGE 
MoV #0,RQO ;EXPECTED 
MOV #7, SHIFT ;# OF SHIFTS 
MOV #100, STMP1 ;DATA CHAR 
JSR Pc, RPOKE ; SHIFT IN THIS CHAR 
TSTB @RXCSR ;RXDONE ? 
BNI _ +4 
ERROR 4 ;RXDONE SHOULD BE SET 
MoV ORXOBUF, R1 > ACTUAL 
ox RO. R1 ;COMPARE EXPECTED VS. ACTUAL 
B _ +4 
ERROR 2 ;RECEIVED DATA DID NOT MATCH 


EXPECTED DATA - CHECK MAINT DATA 
7OR RECEIVER LOGIC 


SEQ 0053 
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012276 
012304 
012312 


012316 
012324 
012332 
012336 


012342 
012346 
012350 
012352 


012354 
012356 
012362 
012364 
012366 
012372 
012376 
012402 
012404 
012410 
012412 
012416 
012422 


012424 
012430 
012436 
012444 
012446 
012452 


012454 
012462 
012464 
012470 
012474 


012502 
012510 
012516 
012522 
012524 
012532 
012536 
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012767 
012767 
094767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


ooo004 
004767 
104401 
015512 
104413 
104401 
105767 
001511 
005767 
0010C7 
104401 
016700 
000000 


000167 
062767 
062767 
000241 
006167 
103410 


036767 
001762 
004767 
000167 
012767 


016767 
016767 
004767 
000441 
016767 
004767 
016767 


000007 
000100 
004634 


000007 
000100 
004614 
140000 


167359 


000340 


012620 
015331 
166550 


166556 


015343 
166544 


167522 
000010 
000010 


166516 


166510 


000034 
000210 
000001 


166450 
166450 
000002 


166424 
004260 
166420 


166616 
167166 


166576 
167146 


166516 
166516 


166504 


166466 
166444 
166444 
004416 
167172 


JSR 
+NOW SHIFT IN A 
M 


¢ 65 
56 
INITIALIZE THE COMMON TAGS 
MOV #7, SHIFT ;# OF SHIFTS 
MOV a ag lig ;DATA CHAR 
PC, RPOKE ; SHIFT IN THIS CHAR 
SECOND. — WITHOUT — RXOBUF 
OV 7. SHI ;# OF SHIFTS 
MOV a0" STHP ;DATA C HAR 
JSR PC, RPOKE ; SHIFT IN THIS CHAR 
MOV #140000!0, RO ; EXPECTED DATA PLUS 
+ RXERR & OVRRUN 
MOV ORXOBUF, R1 ACTUAL 
CMP RO. R1 ; COMPARE. EXP vS. ACT 
BEQ _ +4 
ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
; OVRRUN BITS... THEY BOTH SHOULD BE SET 
;END OF PASS 
; TYPE NAME OF TEST 
; UPDATE PASS COUNT 


RUNIT: 
ZERO: 


23: 


REPLAY: 


; CHECK FOR EXIT TO ACT-11 
;RESTART TEST 


PC, CKSWR 
; TYPE NAME OF TEST 
, OUTCRY 
- DEVICE 
MULTD ;ARE YOU RUNNING MULTIPLE DEVICES ? 
ccc ;NO, JUMP AROUND 
ACTREG ;ARE ANY DEVICES ACTIVE ? 
RUNIT YES 


WH <;NO 
ACTREG. RO +DISPLAY ACTREG 
;SELECT SOMETHING TO RUN @ ACTREG: 
SWITCHES & HIT CONTINUE (PUT SWOO =1) 
. START ; START OVER AGAIN...... YOU DESELECTED EVERYTHING 
#10, BASEADD ;NEXT BLOCK (ADDRESSES) 
#10, BASE IV +NEXT BLOCK (VECTORS) 


ROTADD -;UP DATE ROTATING POINTER 
2$ *1S 1T THE LAST DEVICE 
>TO BE TESTED IN THIS PASS ? 
ROTADD.ACTREG ;TEST THIS DEVICE FOR ACTIVE STATUS 
RUNIT ;1F NOT ACTIVE, TRY NEXT ADDRESS 


PC, REPLAY ; CALCULATE NEW PARAMETERS 
RESTRT ; YES IT WAS ACTIVE. TEST THIS DEVICE 
#1,ROTADD ;OK!,NOW SET UP ROTATING 


;POINTER FOR NEAT MULTIPLE PASS 
KEEPADD. BASEADD ; RESTORE BASE ADDRESS 
KEEPIV,BASEIV ;RESTORE BASE INTERRUPT VECTORS 
PC, REPLAY CALC NEW PARAMETERS 
ccc ; JUMP AROUND REPLAY 
BASEADD, DUBASE ~SET UP FOR NEW ADDRESSES 
PC, DUADOR CREATE NEW ADDRESSES 
BASE IV, DUR IV *>CREATE DURIV 





0 5 
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DZ2DUVB. M11. 31-MAY-77 09: 51 INITIALIZE THE COMMON TAGS SEQ 0055 
2744 012544 062767 000002 166410 ADD #2, BASE IV 
2745 012552 016767 166404 167160 Mov BASEIV,DURIS = CREATE DURIS 
2746 012560 062767 000002 166374 ADD #2, BASE IV 
2747 012566 016767 166370 167146 MoV BASEIV,DUTIV CREATE DUTIV 
2748 012574 062767 000002 166360 ADD #2, BASE IV | 
2749 012602 016767 166354 167134 nov BASEIV,DUTIS CREATE DUTIS 
2750 012610 016767 167122 166344 nov OURIV.BASEIV : RESTORE 
2761 012616 000207 RTS PC 
2753 012620 000001 OUTCRY: 1 
2754 012622 006 002 BYTE 6-2 
2755 012624 001712 RXCSR 
2756 | 
2757 012626 CCC: | 
2758 012626 005067 166550 CLR STSTNM CLEAR TEST NUMBER 
2759 012632 005067 166560 CLR SERRPC [CLEAR LAST ERROR PC 
2760 012636 005067 166541 CLR SERFLG [CLEAR ERROR FLAG 
2761 012642 005267 166244 INC PASCNT UPDATE PASS COUNT 
2762 O12646 016767 166240 166226 nov PASCNT. LIGHTS SOISPLAY PASS COUNT 
2763 012654 016767 166232 166652 Mov PASCNT. SPASS [PASS COUNT TO APT 
2764 012662 013701 o00042 Mov ae42, Rt “CHECK FOR ACT-11 OR DOP 
2765 012666 001406 BEQ RESTRT IF NO CONTINUE TESTING 
2766 012670 O00005 RESET 
2767 012672 000005 RESET 
2768 012674 004711 SENDAD: ‘SR PC, (RI) 
2769 012676 000240 NOP 
2770 012700 000240 NOP 
2771 012702 000240 NOP 
2772 012704 RESTRT: 
2773 012704 012767 003376 166474 Mov #TST1#2,$LPADR LOAD LAST ADDR 
2774 012712 004767 000004 JSR PC, CKSWR 
2776 012716 00167 170366 IMP BEGIN 
6 
2777 ;CHECK SWITCH REGISTER ROUTINE 
2778 “CHECKS TO ALLOW FOR < G> TO ALLOW 
2779 THE CHANGING OF LOCATION 176 
2780 
2781 012722 005737 000042 CKSWR: TST aeu2 
2782 012726 001040 BNE OUT 
2783 012730 022767 000176 166502 CMP #SWREG, SHR SOFTWARE SWR PRESENT? 
2784 012736 001034 BNE OUT :NO--LEAVE 
2785 012740 105777 166500 TSTB. aS TKS “CHECK TTY READY 
2786 012744 100031 BPL OUT ;NO--LEAVE 
2787 012746 017767 166474 000422 Mov aSTKB. . MSG “GET CHARACTER 


2798 013020 000000 0 
2799 013022 177777 177777 


2788 012754 042767 177600 000414 BIC #177600. . MSG STRIP JUNK 
2789 012762 122767 000007 000406 CMPB #7,. MSG :1$ 17 <¢ @ ? 

2790 012770 001017 BNE OUT > NO 

2791 012772 104401 016117 TYPE -MCNTG 

2792 012776 005137 013036 CNTLU: COM a#ROSH 

2793 013002 104401 016127 TYPE , MMSWR 

2794 013006 104413 CONVRT 

2795 013010 013040 SWREGL 

2796 013012 104406 016140 INSTR, MMNEW 

2797 013016 104410 PARAM 
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013024 
013026 
013030 
013034 
013036 
013040 
013042 
013044 


013046 


013050 
013054 
013062 
013064 
013070 


013072 
013076 
013100 
013102 
013104 


013164 
013170 
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000176 
0 


000176 
000005 


004767 
032777 
001402 
016716 
000002 


105767 
100002 
000000 


062716 
000002 


001 
013036 


002 


177646 
001000 
166020 


166361 


000002 
000001 


000100 


000004 
000006 * 


000040 


000002 


166356 


166426 
166417 


166375 


_ BYTE 
QUT: 


ROSW: 
SWREGL: 


. SCOP 1: 


€ 5 


d#ROSW 
PC 

0 

6,2 


;CHECK FOR FREEZE ON CURRENT DATA 


PC, CKSUR 
#SWO9, dSWR 


1$ 
LOCK. (SP) 


1$: RTI 
_SBTTL TYPE ROUTINE 


jp MARKAAAAAA AEA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAS 
;KROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
; XTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


+ KNOTE1: 


; XNOTE2: 
; XNOTES: 
(s 


> CALL: 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER T9 FILL AFTER 


1) USING A TRAP INSTRUCTION 


x 
; KOR 


1$ 


TYPE 


TYPE 
ME SADR 


, MESADR ,;MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 
STPFLG 3; 1S THERE A TERMINAL? 
1$ ;,BR IF YES 
>;HALT HERE IF NO TERMINAL 
3$ +; LEAVE 
RO, - (SP) 7; SAVE RO 
a2(SP),R0 ;;GET ADORESS OF ASCIZ STRING 


RAPTENV, SENV + +RUNNING IN APT MODE | 
623 NO,GO CHECK FOR APT CONSOLE 
#APTSPOOL. SENVM ;; SPOOL MESSAGE TO APT 


62$ ++NO,GO CHECK FOR CONSOLE 
RO, 618 +; SETUP MESSAGE ADDRESS FOR APT 
Pc, SATY3 +;SPOOL MESSAGE TO APT 


0 ++MESSAGE ADDRESS 
RAPTCSUP,SENVM <=; APT CONSOLE SUPPRESSED 
60$ ++ YES, SKIP TYPE OUT 


(RO)+, -(SP) ;PUSH CHARACTER TO BE TYPED ONTO STACK 
4% 1: BR iF IT tSN'T THE TERMINATOR 
(SP)+ >; 1F TERMINATOR POP IT OFF THE STACK 
(SP)+,RO0 ; RESTOR E RO 
#2. (SP) ;; ADJUST RETURN PC 

>; RETURN 


SEQ “| 
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DZ20UVB. M11 31-MAY-77 09: TYPE ROUTINE SEQ 0057 
2856 013172 122716 000011 4$: CMPB #HT, (SP) ++BRANCH IF <HT> 
2857 013176 001430 BEQ 8$ 
2858 013200 122716 000200 CMPB #CRLF, (SP) ++ BRANCH IF NOT <CRLF> 
2859 013204 001006 BNE 5$ 
2860 013206 005726 TST (SP)+ ++POP <CRO<LF> EQUIV 
2861 013210 104401 TYPE +; TYPE A CR AND LF 
2862 013212 001523 SCRLF 
2863 013214 105067 000130 CLRB SCHARCNT +;CLEAR CHARACTER COUNT 
2864 013220 000755 BR 2$ ++GET NEXT CHARACTER 
2865 013222 004767 000055 5S: JSR PC, STYPEC ++GO TYPE THIS CHARACTER 
2866 013226 126726 166224 6S: CMPS SFILLC, (SP)+ si 1S tT TIME FOR 4,5 CHARS. ? 
2867 013232 001350 BNE 2$ ii iF NO GO GET NEXT CHA 
2868 013234 O16746 166214 MOV SNULL, - (SP) GET @ OF FILLER CHARS. "NEEDED 
2869 ;;AND THE NULL CHAR. 
2870 013240 105366 000001 7%: DECB 1(SP) +,D0ES A NULL NEED TO BE TYPED? 
2871 013244 002770 BLT 6$ ;;BR IF NO--GO POP THE NULL OFF OF STACK 
2872 013246 004767 000032 JSR PC, STYPEC +;GO TYPE A NULL 
2873 013252 105367 000072 DECB SCHARCNT ;;DO0 NOT COUNT AS A COUNT 
oo 013256 000770 BR 7$ ++ LOOP 
—s HORIZONTAL TAB PROCESSOR 
2878 013260 112716 000040 8$: MOVB #' , (SP) >+REPLACE TAB WITH SPACE 
2879 013264 004767 000014 9S: JSR PC, $TYPEC +; TYPE A SPACE 
2880 013270 132767 000007 900052 BITB #7, SCHARCNT 7+BRANCH IF NOT AT 
2881 013276 001372 BNE 95 >, TAB STOP 
2882 013300 005726 TST (SP )+ ;;POP SPACE OFF STACK 
2883 013302 000724 BR 2$ +;GET NEXT CHARACTER 
2884 013304 105777 166140 STYPEC: TSTB aSTPS », WAIT UNTIL PRINTER IS READY 
2885 013310 100375 BPL STYPEC 
2886 013312 116677 O00002 166132 MOVB 2(SP), aSTPB +;LOAD CHAR TO BE TYPED INTO DATA REG 
2887 013320 122766 000015 9000002 CMPB #CR, 2(SP) >; 1S CHARACTER A CARRIAGE RETURN? 
2888 013326 001003 BNE 1$ ;;BRANCH IF NO 
2889 013330 105067 000014 CLRB SCHARCNT ++ YES--CLEAR CHARACTER COUNT 
2890 013334 000406 BR STYPEX >s EXIT 
2891 013336 122766 000012 900002 1%: CMPB #LF.2(SP) +; 1S CHARACTER A LINE FEED? 
2892 013344 001402 BEQ STYPEX >;BRANCH IF YES 
2893 013346 105227 INCB (PC)+ +; COUNT THE CHARACTER 
2894 013350 000000 SCHARCNT:. WORD QO +; CHARACTER COUNT STORAGE 
2895 013352 000207 STYPEX: RTS PC 
2896 
2897 
2898 ASCII STRING INPUT ROUTINE 
2899 
2900 013354 017667 000000 000014 ~. INSTR: MOV a(SP).. MSG *>PICK UP MESSAGE 
2901 013362 062716 000002 ADO #2, (SP) ; JUMP AROUND MESSAGE FOR PTI 
2902 013366 105767 166154 TSTB ScNV »APT CONTROL 
2903 013372 001036 BNE INSTR2 > YES NO TYPE 
2904 013374 104401 INST1: TYPE 
2905 013376 000000 MSG: 0 
2906 013400 012704 016152 MoV —- R4 >GET STARTING: LOC OF INBUF 
2907 013404 012703 000007 MOV #7,R3 *MAX # OF CHARS 
2908 013410 105777 166030 1$ TSTB @$TKS -;TTY FLAG 
2909 013414 100375 BPL 1$ 
2910 013416 117714 166024 MOVB DSTKB, (RY) > TAKE CHAR 
2911 013422 142714 000200 BICB #200. (R4) > STRIP 
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2912 013426 121427 000025 CMPB (RY), #25 /IS IT <« @ 
2913 013432 001760 BEQ _ INSTI 
2914 O13434 122427 000015 CMPB (R4)+, #15 ;CHECK FOR CR 
2915 013440 001413 BEQ INSTRZ 
2916 013442 105777 166002 23: TSTB asTPS =; TEST FLAG 
2917 013446 100375 BPL 2$ 
2918 O13450 117777 165772 165774 MOVB OSTKB, ASTPB ECHO CHARACTER 
2919 013456 005303 DEC R3 ;DID YOU TYPE TOO MANY CHARS ? 
2920 013460 001353 BNE 1$ 
2921 013462 104401 _ INSTE: TYPE 
2922 013464 015437 Man ;? 
2923 013466 000742 BR _INST1 ;RETRY 
co. 013470 o0c002 INSTR2: RTI 
coae CONVERT ASCII STRING TO OCTAL 
2928 013472 011605 . PARAM: MOV (SP),RS ;PUT CONTENTS OF SP INTO R5 
2929 013474 012567 000162 MOV (R5)+,LOLIM ;PUT LOW LIMIT INTO LOLIM 
2930 013500 012567 000160 MOV (RS)+, HILIM ;PUT HIGH LIMIT INTO HILIM 
2931 013504 012567 000156 MOV (R5)+, DEVADR +PUT STORE LOC INTO DEVADR 
2932 013510 112567 000154 MOVB (R5)+,LOBITS ;PUT MASK INTO LOBITS 
2933 013514 112567 000151 MOVB (R5)+, ADRCNT *+PUT COUNT INTO ADRCNT 
2934 013520 010516 MOV RS, (SP) ;RESTORE RETURN ADOR ON STACK FOR RT! 
2935 013522 005005 PARAM1: CLR RS 
2936 013524 012704 016152 MOV # INBUF, R4 
2937 013530 122714 90C015 CMPB #15, (RY) CR ? 
2938 013534 001420 BEQ PARERR ;YOU TYPED CR TOO SOON ! 
2939 013536 121427 000060 1$: CMPB (R4), #60 /LOW LIMIT ASCII O 
2940 013542 002415 BLT PARERR 
2941 013544 121427 000067 CMPB (R4), #67 *HIGH LIMIT ASCII 7 
2942 013550 003012 BGT PARERR 
2943 013552 142714 000060 BICcB #60, (RY) > CONVERT TO OCTAL 
2944 013556 152405 BiSB (R4)+,R5 ; STORE AWAY ITS AN OK CHAR 
2945 013560 122714 000015 CMPB #15, (R4) -CR 
2946 013564 001414 BEQ LIMITS ;>NOW CHECK FOR HIGH &LOW LIMIT CONDS 
2947 013566 006305 ASL RS ; ALLOCATE ROOM FOR NEXT CHAR 
2948 013570 006305 ASL RS 
2949 013572 006305 ASL RS 
2950 013574 000760 BR 1$ 
2951 013576 122714 000015 PARERR: CMPB #15, (RY) /CR? 
2952 013602 001003 BNE 120% 
2953 013604 005737 013036 TST a#ROSH >CK SWR USED 
2954 013610 001023 BNE PARTI 
2955 013612 104407 1208: INSTER ; RETRY 
te. 013614 000742 BR PARAM1 
2 
2958 ; TEST TO SEE 1F NUMBER 1S WITHIN LIMITS 
2959 
2960 013616 020567 000042 LIMITS: CMP RS, HILIM 
2961 013622 101365 BHI PARERR ;THE # 1S TOO HIGH 
2962 013624 020567 000032 CMP R5,LOLIM 
2963 013630 103762 BLO PARERR ; THE # IS TOO LOW 
2964 013632 136705 000032 BITB LOBITS. RS > TEST BY MASK INGTHE & 
or 013636 001357 BNE PARERR 
2966 


2967 STORE NUMBER AT SPECIFIED ADDRESS 
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2968 
2969 013640 016704 000022 MOV DEVADR, RY ;GET STARTING ADOR OF 
2970 013644 010524 1$: MOV RS, (R4)+ ;STORE AT THIS ADOR 
2971 013646 062705 000002 ADD #2,R5 
2972 013652 105367 000013 DECB ADRCNT ;HOW MANY TIMES + 2 ? 
2973 013656 001372 BNE 1$ 
2974 013660 000002 PARTI: RTI 
2975 013662 000000 LOLIM: Q 
2976 013664 000000 HILIM: QO 
2977 013666 O00000 DEVADR: 0 
2978 013670 9O00000 LOBITS: 0 
coen 013671 ADRCNT=LOBITS+1 
tot ;SAVE PC OF TEST THAT FAILED RAND RO-RS 
ee 013672 016667 OO00004 165226 . SAVOS: MOV 4 CSP), SAVPC 
4 
2985 > SAVE RO-RS 
2986 
2987 013700 010567 165570 SvOs: MOV R5, SREGS 
2988 013704 010467 165562 MOV R4, SREGY 
2989 013710 010367 165554 MOV R3, SREG3 
2990 013714 010267 165546 MOV R2, SREG2 
2991 013720 010167 165540 MoV Ri, SREG1 
2992 013724 010067 165532 MoV RO, $REGO 
2993 013730 000002 RTI 
2994 
2995 >RESTORE RO-RS 
2996 
2997 013732 016700 165524 -RESOS. MOV SREGO. RO 
2998 013736 016701 165522 MOV SREG1.R1 
2999 013742 016702 165520 MoV SREGZ,R2 
3000 013746 016703 165516 Mov SREGS.R3 
3001 013752 016704 165514 MoV SREGY, RY 
3002 013756 016705 165512 MoV SREGS, RS 
ee 013762 000002 RTI 
4 
3005 ; CONVERT OCTAL NUMBER TO ASCIi AND OUTPUT TO TELEPRINTER 
3006 
3007 013764 104401 _CONVR: TYPE 
3008 013766 015443 MCRLF ;CR LF 
3009 013770 017601 000000 MoV a(SP),R1 >PICK UP DATA POINTER 
3010 013774 062716 000002 ADD #2, (SP) ;SET UP SP FOR RTI 
3011 014000 012167 000130 MOV (R1)+, WROCNT +PICK UP # OF WORDS FROM TABLE 
3012 014004 112167 000126 1%: MOVB (R1)+, CHRCNT ;PICK UP # OF CHARS FROM TABLE 
3013 014010 112167 000123 MOVB (R1)+, SPACNT ;PICK UP # OF SPACES FROM TABLE 
3014 014014 013167 000120 MoV Q(R1)+,BINWRD <;PICK UP ADDRESS OF MSG 
3015 ;FROM TABLE 
3016 014020 016704 000114 2s: MoV BINWRD, RY ; SAVE 
3017 014024 116705 000106 MOVB CHRCNT,RS + SAVE 
3018 014030 012700 016214 MoV #TENP. RO +STARTING ADDRESS OF TEMP BLOCK 
3019 014034 010403 3$: MoV R4Y,R3 + SAVE 
3020 014036 042703 177770 BIC #177770.R3 ;CLR OUT UPPER BITS .. SAVE CHAR 
3021 014042 062703 000260 ADD #260.R3 ; CONVERT TO ASCII 
3022 014046 110320 MOVB R3. (RO)+ STORE AWAY 


3023 Oi4050 006204 ASR R4 > SHIFT FOR NEXT # 
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3024 014052 006204 ASR R4 DITTO 
3025 014054 006204 ASR RY ;DITTO 
3026 014056 005305 DEC RS ;DEC CHAR COUNT 
3027 014060 001365 BNE 3$ ;00 IT AGAIN ? - 
3028 014062 012703 016256 Mov #MOATA, R3 ; STARTING ADDRESS OF MOATA BLOCK 
3029 014066 114023 us: MOVE = - (RO), (R3)+ ;REVERSE THE ORDER OF NUMBERS 
3030 014070 105367 000042 DECB  CHRCNT ;DEC CHAR COUNT 
3031 014074 001374 BNE 4g 700 IT AGAIN ? 
3032 014076 105767 000035 TSTB - SPACNT ; HOW MANY SPACES ? 
3033 014102 001405 BEQ 6$ ; TYPE # IF BR =0 
3034 014104 112723 000240 5S. MOVB #240, (R3)+ ; "SPACE" IN ASCII 
3035 014110 105367 000023 DECB_ —SPACNT DEC # OF SPACE COUNT 
3036 O14114 001373 BNE 3 ;00 IT AGA 
3037 014116 105013 6S: CLRB = (R3) =~ : INSERT a" NFOR TTY OUTPUT ROUTINE 
3038 014120 104401 TYPE i 
3039 014122 016256 MDATA =; THIS MESSAGE 
3040 O14124 005367 Oo0004 DEC WROCNT ;HOW MANY #'S ? 
3041 014130 001325 BNE 15 ;D0 THIS ROUTINE AGAIN IF NOT EQUAL TO 0 
3042 014132 000002 RTI ;RETURN TO PROGRAM 
3043 014134 000000 WROCNT: 0 
3044 014136 CcO0000 CHRCNT: 0 
3045 014137 SPACNT=CHRCNT+1 
3046 014140 o00000 BINWRD: 0 
4 
3048 ‘COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
3049 ;BUFFER TO THE CHARACTERS “N" AND ' 
3050 IF THE CHARACTER 1S "N" CLEAR THE FLAG 
3051 ; IF THE CHARACTER 1S “Y" SET THE FLAG 
3052 
3053 14142 017605 900000 _SETFLS: MOV a(SP), RS 
3054 014146 122767 000116 001776 CMPB Ss #'N INBUF ;1S 17 “N" ? 
3055 014154 001002 BNE 15 
3056 014156 105015 CLRB = (RS) ~—s 000 
3057 014160 000406 BR 28 
3058 014162 122767 000131 001762 1%: CMPB sd 'Y. INBUF siS tv “y" ? 
3059 014170 001005 BNE 38 
3060 014172 112715 177777 MOVB =~ 1, (R5) ; 377 
3061 014176 062716 000002 2s: ADD #2, (SP) 
3062 014202 000002 RTI 
3063 014204 104407 38. INSTER ; RETRY 
3064 014206 000755 BR _SETFLG 
3065 SBTTL ERROR HANDLER ROUTINE 
3066 
3067 Fe oo 055 5505590000 000005000000000000000000092080099 5999999020228) 
3068 SATHIS ROUTINE HILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
3069 SESAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
3070 HAND GO TO SAVIT ON ERROR 
3071 SHTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE 
3072 ;#SW15=1 HALT ON ERROR 
3073 ; #SW13=1 INHIBIT ERROR TYPEOUTS 
3074 ;#SW10=1 BELL ON ERROR 
3075 ; *SWO9=1 LOOP ON ERROR 
3076 ; CALL 
3077 t ERROR ON ;;ERROR=EMT AND N=ERROR ITEM NUMBEP 


) 
3079 014210 SEPRROR: 
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3080 014210 105267 165167 7$: INCB SERFLG ++SET THE ERROR FLAG 
3081 014214 001775 BEQ 7$ +;DON'T LET THE FLAG GO TO ZERO 
3082 014216 016777 165160 165216 MOV STSTNM. ADISPLAY ;; DISPLAY TEST NUMBER AND ERROR FLAG 
3083 014224 032777 002000 165206 BIT #B81T10, OSWR ++BELL ON ERROR? 
3084 014232 001402 BEQ 1$ ++NO - SKIP 
3085 014234 104401 001516 TYPE - SBELL ++RING BELL 
3086 014240 005267 165146 1$: INC SERTTL +;COUNT THE NUMBER OF ERRORS 
3087 014244 011667 165146 MOV (SP), SERRPC +;GET ADDRESS OF ERROR INSTRUCTION 
3088 014250 162767 O00002 165140 SUB #2, SERRPC 
3089 014256 117767 165134 165130 MOVB QSERRPC.SITEMB +¢;STRIP AND SAVE THE ERROR ITEM CODE 
3090 014264 032777 O20000 165146 BIT #B1T13. OSWR +;SKIP TYPEOUT IF SET 
3091 014272 001004 BNE 29% +>SKIP TYPEOQUTS 
3092 014274 004767 000072 JSR PC, SAVIT +;GO TO USER ERROR ROUTINE 
3093 014300 104401 001523 TYPE » SCRLF 
3094 014304 205. 
3095 014304 122767 OO00001 165234 CMPB #APTENV, SENV ++RUNNING IN APT MODE 
3096 014312 001007 BNE 2$ +;NO, SKIP APT ERROR REPORT 
3097 014314 116767 165074 000004 MOVB SITEMB, 21% ++SET 1 TEM NUMBER AS ERROR NUMBER 
3098 014322 004767 O00016' JSR PC, SATY4 ;;REPORT FATAL ERROR TO APT 
3099 014326 000 218: .BYTE 0 
3100 014327 000 .BYTE 0 
3101 014330 000777 225: BR 228 >;APT ERROR LOOP 
3102 014332 005777 165102 23: TST OSWR ;>HALT ON ERROR 
3103 014336 100001 BPL 3$ >+SKIP IF CONTINUE 
3104 014340 000000 HALT +;+HALT ON ERROR! 
3105 014342 032777 00:000 165070 33%: BIT #B1TO9, SHR +>LOOP ON ERROR SWITCH SET? 
3106 014350 001402 BEQ 4$ *+7BR IF NO 
3107 014352 016716 165032 MoV SLPERR, (SP) ate te RETURN FOR LOOPING 
3108 014356 005767 165132 4S: TST SESCAPE CHECK FOR AN ESCAPE ADDRESS 
3109 014362 001402 BEQ 5$ BR IF NONE 
3110 014364 016716 165124 MOV SESCAPE, (SP) FUDGE RETURN ADDRESS FOR ESCAPE 
3111 014370 5$ 
3112 014370 000002 RTI >> RETURN 
3113 014372 010067 164532 SAVIT: MOV RO. HLDO 
3114 014376 010167 164530 MoV Ri, HLO1 
3115 014402 010267 164526 MOV R2,HLDZ 
3116 014406 010367 164524 MOV R3,HLD3 
3117 014412 010467 164522 MOV R4, HLOY 
3118 014416 010567 164520 Mov R5, HLDS 
eo 014422 016767 164754 164514 MoV STSTNN, HiD6 
31 
3121 _SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
3122 
3123 jp MERAAAAAAAAAARAA AAA AAA AAA AAT AAA AAA AAA AA AAA AAA AAA AAA AAS 
3124 :KTHIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
3125 ;*ERROR 1S TO BE REPORTED. IT THEN OBTAINS. FROM THE “ERROR TABLE” (SERRTB), 
3126 ;¥AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR 
3127 
3128 014430 SERRTYP: 
3129 014430 104401 001523 TYPE » SCRLF +; "CARRIAGE RETURN” & “LINE FEED” 
3130 014434 010046 MoV RO, - (SP) +; SAVE RO 
3131 014436 005000 CLR RO +;>PICKUP THE ITEM INDEX 
3132 014440 153700 001414 BISB eS 1TEMB, RO 
3133 014444 001004 BNE 1$ >; 1F ITEM NUMBER IS ZERO. JUST 
3134 7; TYPE THE PC OF THE ERROR 


3135 O14446 016746 164744 MoV SERRPC, -(SP) >;SAVE SERRPC FOR TYPEOUT 
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014452 
014454 
014456 
014460 
014462 
014464 
014466 
014472 
014476 
014500 
014502 
014504 
014510 
014514 
014516 
014520 
014522 
014526 
014530 
014532 
014534 
014540 
014542 
014542 
014544 
014546 
014550 
014552 
014556 
014560 
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104402 
000426 
005300 
006300 
006300 
006300 
062700 
012067 
001404 
104401 
000000 
104401 
012067 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
000207 


013046 
104402 
005710 
001770 
104401 
006771 
020040 
014564 


21-SEP-77 09:27 PAGE 6 
09: 51 ERROR NE SSAGE TYPEOUT ROUTINE 


001652 
000004 


001523 
000004 


001522 


001523 


014560 
ooo 


K § 


TYPUC 
BR 6$ 
1$: DEC RO 
ASL RO 
ASL RC 
ASL RO 
ADD #SERRTB.RO 
MOV (RO) +, 2$ 
BEQ 3$ 
TYPE 
23: . WORD 0 
TYPE , SCRLF 
35: MOV (RO)4,4$ 
BEQ 53 
TYPE 
4S: . WORD 0 
TYPE , SCRLF 
5S: MOV (RO), RO 
BNE 7$ 
63: MoV (SP)+,RO 
TYPE , SCRLF 
RTS PC 
73: 
MOV a(RO)+,-(SP) 
TYPOC 
TST (RO) 
BEQ 63 
TYPE , 83 
BR 7% 
8$: aASCIzZ #7 @# 


. EVEN 
.SBTTL BINARY TO OCTAL (ASCII) 


SEQ 0062 


++ERROR ADDRESS 

++GO TYPE--OCTAL ASCIICALL DIGITS) 
++GET OUT 

+;ADJUST THE INDEX SO THAT IT WILL 
ie WORK FOR THE ERROR TABLE 


7; FORM TABLE POINTER 

;;PICKUP “ERROR MESSAGE” POINTER 
+; SKIP TYPEOUT IF NO POINTER 

7; TYPE THE “ERROR MESSAGE” 

7; "ERROR MESSAGE” POINTER GOES HERE 
7; "CARRIAGE RETURN" & “LINE FEED" 
;;PICKUP “DATA HEADER" POINTER 
;;SKIP TYPEOUT IF O 

3; TYPE THE “DATA HEADER” 

>; "DATA HEADER" POINTER GOES HERE 
+; "CARRIAGE RETURN" & “LINE FEED" 
;;PICKUP “DATA TABLE” POINTER 
+;GO TYPE THE DATA 

;+RESTORE RO 

3; "CARRIAGE RETURN" & “LINE FEED" 
++ RETURN 


;;SAVE d(RO)+ FOR TYPEOUT 

;,GO TYPE--OCTAL ASCIICALL DIGITS) 
+; 1S THERE ANOTHER NUMBER? 

;;BR IF NO 

+; TYPE TWO(2) SPACES 


++ LOOP 
++ TWO(2) SPACES 
AND TYPE 


5s MXRKKAAAAAA AAA AAA AAA AAA AA AAA AAA AAA AAA REAR AAA AAAS 

;XTHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 

+ BSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, - (SP) 


N 
M 


;NUMBER TO BE TYPED 
CALL FOR TYPEOUT 
;;N21 TO 6 FOR NUMBER OF DIGITS TO TYPE 
>;M=1 OR O 
;,1=TYPE LEADING ZEROS 
+; Q0=SUPPRESS LEADING ZEROS 


; ¥STYPON----ENTER HERE TO TYPE OUT WiTH THE SAME PARAMETERS AS THE LAST 
; XSTYPOS OR STYPOC 


NUM, - (SP) 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


, x 
; RSTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


; XCALL: 

;x MoV 
7x TYPON 
> XCALL: 

;* MOV 
;k TYPOC 


NUM, - (SP) 


+;NUMBER TO BE TYPED 
7;CALL FOR TYPEOQUT 


















































014564 
014570 
014576 
014602 
014606 
014610 


015010 
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017646 
116667 
112667 
062716 
000406 


000000 
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000000 
000001 
000207 
000002 


000001 
000006 
000005 


000145 


000006 
000132 
000125 
000012 


000U76 
177770 


000060 
000040 
000040 
015004 
000032 


000002 


000211 


000171 
000165 
000154 


000004 


L 5 


65 
BINARY TO OCTAL (ASCII) AND TYPE 


STYPOS: 


STYPOC: 
STYPON: 


23: 


3$: 


4§ 
5S: 


7$: 


6S: 


8S. 
SOCNT: 


SOF ILL: 
SOMODE: 


MOV a(SP),-(SP) ++PICKUP THE MODE 

MOvVB 1(SP),S0F ILL ;;LOAD ZERO FILL SWITCH 

MOVB (SP)+,SOMODE+1 ;; NUMBER OF DIGITS TO TYPE 
ADD #2. (SP) ;;ADJUST RETURN ADDRESS 

BR STYPON 

MOVB #1, $0F ILL ;;SET THE ZERO FILL SWITCH 
MOvVB #6, SONODE +1 ;;SET FOR SIX(6) DIGITS 

MOVB #5, S0CNT ;;SET THE ITERATION COUNT 
MoV R3,-(SP) +,SAVE RZ 

MoV R4, -(SP) 7 SAVE RY 

MOV RS, -(SP) ++ SAVE RS 

“hy peice ;;GET THE NUMBER OF DIGITS TO TYPE 
N uy 

ADD #6, R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4. SOMODE ;;SAVE IT FOR USE 

MOVB SOF ILL.R4 ;;GET THE ZERO FILL SWITCH 
Mov 12(SP),R5 ;;PICKUP THE INPUT NUMBER 
CLR R3 ;;CLEAR THE OUTPUT WORD 

ROL RS ;;ROTATE MSB INTO "C" 

BR 3$ ;;GO DO MSB 

ROL RS ;;FORM THIS DIGIT 

ROL RS 

ROL RS 

MOV RS.R3 

ROL R3 >,GET LSB OF THIS DIGIT 

DECB SOMODE 3; TYPE THIS DIGIT? 

BPL +) >;BR IF NO 

BIC #177770,R3 >,GET RID OF JUNK 

BNE 4S +; TEST FOR O 

TST RY ++ SUPPRESS THIS 0? 

BEQ 5$ ;;BR IF YES 

INC Fu ;;DON'T SUPPRESS ANYMORE O'S 
BIS #'0,R3 >;MAKE THIS DIGIT ASCII 

BIS e* ,&3 ;;MAKE ASCII IF NOT ALREADY 
MOVB R3,85 >; SAVE FOR TYPING 

TYPE 8s ;;GO TYPE THIS DIGIT 

DECB SOCNT ;; COUNT BY 1 

BGT 2$ >;BR IF MORE TO DO 

BLT 6$ ;;BR IF DONE 

INC RY >; INSURE LAST DIGIT ISN'T A BLANK 
BR 2$ >;G0 DO THE LAST DIGIT 

MOV (SP)+,R5 >;RESTORE RS 

MOV (SP)+,R4 ;;RESTORE RY 

MOV (SP)+,.R3 >+RESTORE R3 

MOV 2(SP),4 (SP) ;;SET THE STACK FOR RETURNING 
MoV (5P)+4, (SP) 

RTI >-RETURN 

. BYTE 0 ;; STORAGE FOR ASCII DIGIT 

. BYTE 0 +; TERMINATOR FOR TYPE ROUTINE 
. BYTE 0 >; OCTAL DIGIT COUNTER 

._ BYTE 0 >, ZERO FILL SWITCH 

._ WO 0 ;;NUMBER OF DIGITS TO TYFE 


RO 
-ENTER HERE ON POWER FAI 


LURE 


SEQ 0063 
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015012 
015012 
015014 
015016 
015020 
015022 
015024 
015026 
015032 
015036 
015044 
015046 


015050 
015054 
015056 
015060 
015062 
015064 


015264 
015272 
015277 
015304 
015312 
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010046 


000777 


016706 
012605 
012604 
012603 
012602 
012601 
012600 
012767 
106427 
012706 


020124 
051040 
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162772 
164060 
015059 


164042 


015012 
000340 
001100 
001102 
001u76 


164247 
164256 
163740 


002 
042012 
042040 


041055 
020105 
000 


041505 


162760 


162726 


053125 
042132 
052040 
020106 


041505 
000055 


041440 


oe) 


66 
BINARY TO OCTAL (ASCII) AND TYPE 


SPWRON: 
_PFAIL: 


RESTAR: 


PF TAB: 


MTITLE: 


MVECTO: 


MREGAD: 


MMULT: 


MLASTD: 


MOV 
Mov 


RO, -(SP) ; SAVE RO-RS ON PROCESSOR STACK 
R1, -(SP) 
RZ, -(SP) 
R3,-(SP) 
R4, - (SP) 
RS, -(SP) 
24, - (SP) 
SP, SAVSP 
#RESTART, 24 


; SAVE STACK POINTER 
;SET UP FOR POWER UP TRAP 
;HALT ON POWER DOWN NORMAL 


;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


RETURN 
. ASCIZ 


 ASCIZ 
. ASCIZ 


. ASCIZ 


- ASCIZ 


RESTORE STACK POINTER 
;RESTORE RO-R5S 


SAVSP, SP 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
#. PFAIL, 24 
#340 
#STACK, SP 
TEMP 

TEMP 

.74 


;SET UP FOR POWER FAILURE 


SERFLG 

SERRPC 

ORE TURN 
6,2 


€15>¢12><12>/DUV11 DZ2DUV-B TAPE F 7<15><12> 


€15><12>/VEC ADD-/ 
<15><12>71ST DEV: REC CSR ADD-/ 


€15><12>/MULT DEV ? (Y OR N)-7 


<15><12>/LAST DEV: REC CSR ADDR-/ 


SEQ 0064 
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015320 


015520 
015526 
015534 
015537 
015543 
015550 
015556 
015564 
015572 
015600 
015606 
015611 
015616 
015624 
015632 
015640 
015646 
015654 
015657 
015664 
015672 
015700 
015706 
015714 
015722 
015730 
015736 
015744 
015752 
015760 
015766 
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051123 
026522 


054450 


051124 


047412 
051072 
020105 
042040 
041530 
042104 


037440 
000012 
044501 
042522 
020124 


047440 


042104 
044526 

000 
046105 
047524 


040040 
043505 


043126 
052105 
040514 
053105 
051123 
026523 


000 


026114 
052123 
052101 
020124 
047522 
000123 
020104 
051501 
042520 


000 
051505 
000055 
045503 
052040 
024040 
047040 


047440 
041516 
051522 
041505 
020050 
031040 


020123 
046530 
044527 
032505 
047111 
047440 
000055 
051440 
041505 
041524 
026465 
020077 
020122 


27 


DEVICE: 


MCOW: 


MRANGE: 


MQM: 
ACRLF: 


MPFAIL: 


MEPASS: 


MR: 


MTSTPC. 


MLOCK: 


MSYNC: 


MW IRE: 


MWIRES: 


PAGE 67 
BINARY TO OCTAL 


. ASCIZ 
. ASCIZ 


-ASCIZ 


. ASCIZ 
. ASCIZ 
. ASCIZ 


. ASCIZ 


.ASCIZ 
 ASCIZ 


. ASCIZ 
 ASCIZ 


. ASCIZ 


.ASCIZ 


N 5 
(ASCII) AND TYPE 


7=DEVICE / 
<15><12>/SELECT TO RUN @ACTREG/ 


€15><12>/0VFLO: RETYPE LAST DEV RXCSR ADDS-/ 


7 
€15><12> 
7PFAIL, RESTART AT TEST IN PROGRESS/ 


<15><12>/7END OF PASS TAPE F/ 


€15><12>/R7 
€15><12>/7TEST PC-7 


€15><12>/LOCK ON TEST? (Y OR N)-7 


€15><12>78 OF SYNC CHARS SELECTED ( 1 OR 2)-/ 


€15><12>71S SEC XMIT SWITCH E55-2 IN? (Y OR N)-Z 


€15><12>71S SEC REC SWITCH E55-3 IN? CY OR N}-/ 


SEQ 0065 


DZDUV-B MACY11 30(1046) 
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015774 
016000 
016006 
016014 
016022 
016030 
016036 
016044 
016052 
016057 
016064 
016072 
016100 
016106 
016114 
016117 
016124 
016127 
016134 
016140 
016146 


016152 
016214 
016256 


016320 


016320 
016320 
016324 
016330 
016334 


016336 
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024516 


020040 
020075 


000000 
016214 
000000 
016256 
006000 
016320 


004767 
005067 
022716 
001422 


032777 


00055 


000040 


174376 
163066 
003376 


040000 


047440 
051114 


047040 
043536 
036522 
053505 


163074 


27 


B 6 
PAGE 68 
BINARY TO OCTAL (ASCII) AND TYPE 


MWIREY: .ASCIZ <15><12>71S OPT CLR ENABLE SWITCH E55-1 IN? (Y OR N)-/ 


MEXTJ: .ASCIZ <15><12><12>7H315 CONNECTOR ON ?7(Y OR N)-/7 


MCNTG: .ASCIZ <15><12>2 G 7 
MMSWR: .ASCIZ 7 SWR= = / 
MMNEW: .ASCIZ 7 NEWS / 


_ EVEN 
;BUFFERS FOR INPUT-OUTPUT 
INBUF: 0 
.= +40 
TEMP: 0 
=. +40 
MDATA: O 


0 
“SBTTL SCOPE HANDLER ROUTINE 


5 5 REXKAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAT ES 
;XTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

; ¥AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: D>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 08> 

;XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


> *SW14=1 LOOP ON TEST 

; *SW11=1 INHIBIT ITERATIONS 

; *SWO9=1 LOOP ON ERROR 

; *SHO8=1 LOOP ON TEST IN SWR<7: 0> 
> KCALL 

;* SCOPE +; SCOPE=I10T 
SSCOPE: 


;SCOPE LOOP AND INTERATION HANDLER 


. SCOPE: 
JSR PC. CKSWR 
CLR SERRPC ;CLEAR LAST ERROR PC 
CMP #TST1+#2, (SP) > 1S SCOPE AT BEGINING OF TEST 17 
BEQ SXTSTR + YES NO LOOP 


TTST: BIT #BITI4, dSWR THIS CODE IS FOR TESTING FOR BIT 14 


SEQ 0066 
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3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
343i 
3432 
3433 


016344 
016346 
016354 
016356 
016362 
016364 
016372 
016400 


016402 


016404 
016410 
016416 
016422 
016426 
016430 
016432 
016436 
016440 
016440 
016446 
016450 
016456 
016460 
016464 
016466 
016474 
016476 
016504 
016506 
016514 
016516 
016522 
016526 
016530 


016646 
016650 
016652 
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001412 
016767 
000406 
105777 
100123 
017766 
032777 
001114 


000416 


013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 


032777 
001404 
127767 
001465 
105767 
001421 
126767 
101015 


000005 


163030 
163062 


163056 
040000 


163032 


177776 
163040 


000004 
016430 
177060 
000004 


ooo004 


000004 


162772 
162724 


000400 
162764 
162717 
162/723 
001000 
162676 


162661 
162764 


004000 
162770 


162632 
162734 


000001 
000056 
162600 
162574 
162572 
162570 
162670 
000001 
162544 
162542 


162707 
162734 
162672 


162702 


162624 


162614 
162714 


162722 


162563 
162602 


C 6 
27 PAGE 69 
SCOPE HANOLER ROUTINE 
BEG 1$ 
MoV STSTNM, SLPADR 
BR 1$ 
TSTB asTKS 
BPL SOVER 
MOV OSTKB, -2(SP) 
1$: BIT #81714, dSWR 
BNE SOVER 
;RRRRRSTART OF CODE FOR THE XOR 
SXTSTR: BR 6$ 
MOV OFERRVEC, - (SP) 
MOV #53, DRERRVEC 
TST 0#177060 
MOV (SP) +, J#ERRVEC 
BR S$SVLAD 
5S. CMP (SP)+, (SP)+ 
- (SP) +, ARERRVEC 
6%: ; RRRRREND OF 
BiT #8 1TO8, dSWR 
BEQ 23 
CMPB OSWR, STSTNM 
BEQ SOVER 
23: TSTB SERFLG 
BEQ 3$ 
CMPB SERMAX, SERFLG 
BHI 3$ 
BIT #81T09, dSWR 
BEQ 4g 
7S: MOV SLPERR. SLPADR 
BR SOVER 
4S: CLRB SERFLG 
CLR STIMES 
BR 1% 
35: BIT #BIT11. SHR 
BNE 1$ 
TST SPASS 
BEQ 1$ 
INC SICNT 
CMP ST INES. SICNT 
BGE SOVER 
18: MOV #1,S1CNT 
MOV SMXCNT, STIMES 
SSVLAD: INCB STSTNM 
MOVB STSTNM, STESTN 
MOV (3P), SLPADR 
MOV (SP), SLPERR 
CLR SESCAPE 
Nove #1, SERMAX 
SOVER: MOV 
MOV SLPADR. (SP) 
4S. RTI 
1407 
BRX 432 
SMXCNT: 5 


ON LSI WHICH SYSMAC CANNOT HANDLE 


; KEYBOARD DONE? 
;BR IF NO 

;CLEAR DONE BIT 

;+LOOP ON PRESENT TEST? 

3, YES IF SW14=1 

TESTERSRRRS 

3; 1F RUNNING ON THE "“XOR" TESTER CHANGE 
3; THIS INSTRUCTION TO A “NOP” (NOP=240) 
+; SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TIMEOUT 

>; TIME OUT ON XOR? 

;;RESTORE THE ERROR VECTOR 

;;GO TO THE NEXT TEST 

3; CLEAR THE STACK AFTER A TIME OUT 
;;RESTORE THE ERROR VECTOR 

++LOOP ON THE PRESENT TEST 


7$ 
CODE FOR THE XOR TESTERARRRE 


++ LOOP ON SPEC. TEST? 
BR IF NO 
;;0N THE RIGHT TEST? 
+-BR IF YES 
++HAS AN ERROR OCCURRED? 
++BR IF NO 
;;MAX. ERRORS FOR THIS TEST OCCURRED? 
+7BR IF NO 
+;LOOP ON ERROR? 
> BR 


; 1F NO 
;,SET LOOP ADDRESS TO LAST SCOPE 


+;ZERO THE ERROR FLAG 
++CLEAR THE NUMBER OF ITERATIONS TO MAKE 
>;ESCAPE TO THE NEXT TEST 
+; INHIBIT ITERATIONS? 
++BR IF YES 

77 1F FIRST PASS OF PROGRAM 

; INHIBIT ITERATIONS 
:; INCREMENT ITERATION COUNT 
+; CHECK THE NUMBER OF ITERATIONS MADE 
++BR IF MORE ITERATION REQUIRED 
>-REINITIALIZE THE ITERATION COUNTER 
+;SET NUMBER OF ITERATIONS TO DO 
+,COUNT TEST NUMBERS 
+;SET TEST NUMBER IN APT MAILBOX 
++SAVE SCOPE LOOP ADDRESS 
+;SAVE ERROR LOOP ADDRESS 
+;CLEAR THE ESCAPE FROM ERROR ADDRESS 
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 


SWR<7: O> 


STSTNM. ADISPLAY ;; DISPLAY TEST NUMBER 


+;FUDGE RETURN ADDRESS 


>;MAX. NUMBER OF ITERATIONS 


SEQ 0067 | 
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3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 


016654 
016656 
016662 
016664 
016666 
016670 
016674 


016676 
016700 
016706 


016710 
016712 
016714 
016716 
016720 


016722 
016724 
016726 
016730 
016732 
016734 
016736 
016740 


016742 
016746 
016752 
016756 
016762 
016766 
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010046 
016600 
005740 
111000 
00€ 300 
016000 
000200 


011646 
C16666 
000u02 


016676 
013072 
014610 
014564 
014624 


013050 
013354 
013462 
013472 
013672 
013732 
013764 
014142 


016767 


000002 


016710 


000004 000002 


000044 
000040 
000034 
000030 
000024 
000020 900020 


TRAP DECODER SEQ 0068 


.SBTTL TRAP DECODER 


5s RXXXAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AE 
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
>KOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
+*GO TO THAT ROUTINE. 


STRAP: MOV RO, -(SP) +; SAVE RO 
MoV 2(SP),R0 +;GET TRAP ADDRESS 
TST - (RO) +;BACKUP BY 2 
MOVB (RO), RO ++GET RIGHT BYTE OF TRAP 
ASL RO +;POSITION FOR INDEXING 
MOV STRPAD(RO),RO «+; INDEX TO TABLE 
RTS RO ++GO TO ROUTINE 


++ THIS 1S USE TO HANDLE THE "GETPRI" MACRO 


STRAP2: MOV (SP), -(SP) ;;MOVE THE PC DOWN 
MOV 4(SP), 2(SP) ;;MOVE THE PSW DOWN 
RTI ;; RESTORE THE PSH 
-SBTTL TRAP TABLE 


> THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


/*¥BY THE “TRAP” INSTRUCTION. 
ROUTINE 
STRPAD: .WORD STRAPZ 
TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
.SCOP1 +; CALL=SCOP1 TRAP +5( 104405) 
_ INSTR 7; CALL=INSTR TRAP +6( 104406) 
_INSTER >; CALL=INSTER TRAP+7(104407) 
.PARAN ;;CALL=PARAN TRAP +10( 104410) 
.SAVOS ;;CALL=SAVO5 TRAP 4+11(104411) 
.RESOS ;;CALL=RESOS TRAP +12(104412) 
_CONVRT >; CALL=CONVRT TRAP+13(104413) 


SETFLG ;;CALL=SETFLG TRAP+14(104414) 

; MERAKAAAAAAAAAAAAAAAAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
UTILITIES 

TTT TeTiittttt ttt ttt ttititti ttt ettettttttit ttt set ists itt is 


; THIS UTILITY CALCULATES PRIORITY LEVEL 
DULEV: ASL DUPRT ;SHIFT LEFT 

RSL DUPRT ; 

ASL DUPRT ; 

ASL DUPRT ; 

ASL DUPRT 


MOV DUPRT, LESSI SMOVE THIS TO LESS! 
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DZDUVB. M11 31-MAY-77 09: 51 TRAP TABLE SEQ 0069 
3528 016774 162767 000001 000012 SUB #1,LESS1 +; CREATE LESS! 
3529 017602 042767 000037 000004 BIC #37,LESS1 CLEAR TN2VC 
3530 017010 000207 RTS PC 
3531 017012 000240 DUPRT: PRS 
ty 017014 000200 LESS1: PRY LEVEL TO ALLOW INTERRUPTS 
3534 *NEW DU ADDRESSES 
3535 017016 016767 000126 162666 DUADDR: MOV DUBASE, RXCSR + XXXO 
3536 017024 005267 000120 INC DUBASE 
3537 017030 016767 000114 162656 MoV DUBASE.HRXCSR =; XXX1 
3538 017036 005267 000106 INC DUBASE 
3539 017042 016767 O00102 162646 MOV DUBASE.RXDBUF + XXX2 2 
3540 917050 016767 000074 162644 MOV DUBASE.PARCSR + XXX2 
3541 017056 005267 000066 INC DUBASE 
3542 017062 016767 000062 162630 MOV DUBASE.HRXDBUF + XXX3 
3543 017070 016767 O00054 162626 MOV DUBASE.HPARCSR + XXxX3 
3544 017076 005267 O00046 INC DUBASE 
3545 017102 016767 OO00%2 162616 MOV DUBASE. TXCSR + XXX4 
3546 017110 005267 000034 INC DUBASE 
3547 017114 016767 O00030 162606 MOV DUBASE.HTXCSR =, XXX5 
3548 017122 005267 000022 INC DUBASE 
3549 017126 016767 000016 162576 MOV DUBASE. TXDBUF + XXX6 
3550 017134 005267 000010 INC DUBASE 
3551 017140 016767 OQO0004 162566 MOV DUBASE, HTXDOBUF ; XXX7 
3552 017146 000207 RTS PC 
o 017150 9000000 DUBASE: 0 

4 
3555 THIS UTILITY POKES THE MAINT DATA BASED UPON THE 
3556 > INFORMATION CONTAINED IN STMP1 AND IT IS 
3557 ;SHIFTED IN BY THE CONTENTS OF SHIFT 
3558 017152 042777 O4O000 162546 RPOKE: BIC #MTOATA, dTXCSR 
3559 017160 005067 162316 CLR STMP2 
3560 017164 006067 162310 ROR STMP1 ;FORCE CARRY 
3561 017170 006067 162306 ROR STMP2 ;PICK UP CARRY IN BIT 15 
3562 017174 006267 162302 ASR STMP2 ;SHIFT INTO BIT 14 
3563 017200 042767 100000 162274 BIC #B1T15,S$TMP2 -CLR BIT 15 
3564 017206 056777 162270 162512 BIS STMP2Z, ATXCSR >POKE MAINT DATA 
3565 017214 042777 O20000 162504 BIC #CLK, ATXCSR >POKE CLK 
3566 017222 052777 020000 162476 BIS #CLK, @TXCSR ; 
3567 017230 005367 161666 DEC SHIFT 
3568 017234 001346 BNE RPOKE 
—— 017236 000207 RTS PC 
3571 ; THIS ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT CHAR 


3583 017312 000403 BR 





3572 017240 016767 162234 162234 ODDS: MOV STMP1,STMP2 > SAVE TEMP1 
3573 017246 005067 162232 CLR STMP3 

3574 017252 012727 000010 Mov #3. ,(PC)+ 

3576 017256 000000 4$: 0 

3576 017260 006067 162216 1S: ROR STMP2 

3577 017264 005567 162214 ADC STMP3 

3578 017270 005367 177762 DEC 4$ 

3579 017274 001371 BNE 1$ 

3580 017276 006067 162202 ROR STMP3 

3581 017302 103404 BCS 2% 

3582 017304 052767 OO00400 162166 BIS - Seearatnceath ;SET ODD PARITY 


ee ee Ce OS 


017314 
017322 


017324 
017332 
017336 
017342 
017344 
017350 
017354 
017360 
017362 
017366 
017370 
017376 
017400 


017406 
017410 


017414 
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042767 
000207 


016767 
005067 
012727 
000000 
006067 
005567 
005367 
001371 
006067 
103004 
052767 
000403 
042767 


000207 
062716 


000002 
000001 
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000400 


162150 
162146 
000010 
162132 
162130 
177762 
162116 
000400 


000400 


000002 


162156 


162150 


162102 
162072 


27 PAGE 72 
TRAP TABLE SEQ 0070 
23: BIC #B1T8,. STMP1 ;CLR EVEN PARITY 
;S$TMHP1 NOW HAS ODD PARITY CHARACTER 
34: RTS PC 
> THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 
EVEN8: MOV STMP1,$TMPZ ;SAVE TEMP 1 
CLR STMP3 
MOV #8.,(PC)+ 
4S: 0 
18: ROR STMP2 
ADC STMP3 
DEC 4§ 
BNE 1$ 
ROR STMP3 
BCC 2$ 
BIS #B1T8, STMP1 ;SET EVEN PARITY 
BR 3% 
2$: BIC #BiTS, STMP1 >CLR ODD PARITY 
;STMP1 NOW HAS EVEN PARITY CHARACTER 
35: RT S PC 
TRPREG: ADD #2. (SP) ; ALLOW IT TO “CRUNCH” !NTO HLT BACK 
> 1N MAIN PART OF THE PROGRAM 
RTI 
ENO 


G 6 
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DZ20UVB. M11 31-MAY-77 09: 51 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0071 
AAA 003200 12938 

ABASE = 000000 876 917 
ACDW1 = 000000 876 919 
ACOW2 = 000000 876 920 
ACPUOP= 000000 876 891 
ACTREG 001166 7358 8 81249% 1263% 1264% 1271% 2718 2721 2731 
ADOWO = 000000 876 921 
ADOW1 = O00000 876 922 
ADDW10= 000000 876 931 
ADOW11= O00000 876 932 
ADOW12= 000000 876 933 
ADDW13= 00000 876 934 
ADOW14= OOO000 876 935 
ADDW1S= 000000 876 936 
ADDW2 = 000000 876 923 
ADOW3 = 000000 876 924 
ADOWY = 000000 876 925 
ADOWS = 000000 876 926 
ADOWE = 000000 876 927 
ADDW? = 000000 876 928 
ADOWS = 000000 876 929 
ADOWS = 000000 876 930 
ADEVCT= OG0000 876 €82 
ADEVM = 000000 8 91 
ADRCNT= 013671 2933% 2972% 29798 
RENV = O00000 £76 887 
RENVM = 000000 8/6 &88 
AFATAL= 000000 876 879 
AMADRi= OGO0000 876 904 
AMADRZ= 000000 8? 908 
AMADR3= 000000 876 911 
AMADR4Y= OOO000 876 914 
AMANS1= OO00000 876 898 
AMAMSZ= 000000 876 906 
AMANS3= O00000 876 909 
AMANS4= O00000 876 912 
AMSGAD= 000000 876 884 
AMSGLG= 000000 876 885 
AMSGTY= 000000 876 878 
ANTYP1= OO0000 876 899 
ANTYP2= 000000 876 907 
AMNTYP3= OO0000 876 910 
ANTYP4= 000000 876 913 
APASS = 000000 876 881 
APRIOR= 000000 876 

APTCSU= 000040 5368 2848 
APTENV= 000001 5368 2841 3095 
APTSIZ= 000200 5368 1168 
APTSPO= 000100 5368 2847 
ASWREG= 000000 876 889 
ATESTN= 000000 876 880 
AUN'!T = 000000 876 883 
AUSWR = 000000 876 890 
AVECTi= 000000 876 915 
AVECTZ2= 000000 876 


916 
BASEAD 001154 7308 12318 12688 1269 12768 8612778) «627288027378 27h 
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001162 


000001 
016646 
016650 
010000 
012626 
014136 
012722 
020000 


012776 
104413 
001124 


000015 
000200 
020000 
177570 
013666 
015331 
002132 
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1241% 
& 


2726% 
30468 
809 


2738% 


971 


1039 


2743 


1002 


1918% 


1085% 


H 6 


2744% 


3083 


975 
974 
973 


979 


2608 


1959 


CROSS REFERENCE TABLE -- USER SYMBOLS 


2745 


994 
992 


996 


27464 


3990 
3415 
3563 


3582 


1430 
1714 
2094 
2246 
2428 
2614 


2015% 


2747 


3422 


3584 


1436 
1738 
2095 
2260 
2437 
2615 


2087% 


2748x 


3599 


2098% 


2749 


3601 


2170% 


2750% 


1486 
1996 
2159 
2324 
2499 
2663 


2181% 


SEQ 0072 


2253% 
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“ 

z 

4 

m 
nnn 


DUBASE 


DULEV 
DUPRT 


DUR IS 
DUR IV 
DUTIS 


HT s 
HTXCSR 


002067 
001442 
000174 
100000 
000040 
100000 
000040 
001000 
177570 
000002 
002116 
002126 
017016 
017150 


016742 
017012 


001740 
001736 
001744 


001742 


006000 
000030 
001762 
002022 
002043 
001746 
001114 
000004 
017324 
001400 
000400 
000000 
020000 
PSS So 8 | 
000010 
013664 
001130 
001132 
001134 
001136 
001140 
001142 
001144 
001120 
001724 
001714 
001720 
000011 
001730 
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1033 
1164% 
1189 
1538 
1458 
1155 


1451 
1034 


2430 


2897 


10744 
1189% 
1551 
1470 


1165% 
2416 
2556 
3506 


2439 


3082% 


1560 
1474 


35 36% 
3549 


1573 
35318 
1400 
1896 
1365% 
1937% 
1557 
1682 
1940% 
1572% 
1871x 
1523 


342? 


2611 
3509 


2445 


| 6 


3466% 


1720 
1498 


3537 
3550% 


1610 


1401% 
1897% 
1376% 
274 3% 
1558x 
1683x 
2749 
1590% 
1898x 
1705 


2666 
3510 


2495 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1745 


3538% 
3551 


34304 


3511 


2501 


1757 


3539 
35538 


1718 
1461 
1908% 
1438x 


1590 
1748 


1609% 
1939% 
1855 


34334 


3512 


2510 


1764 

3549 3541% 
1790 1870 

1462k 1493 

1937 1938% 
1449% 1461% 
1591x 1594 

1749x 1761 


1618k 1626% 


2235 2318 
3513 3514 
2516 


3542 


1872 

1494% 
2745 
1493% 


1595% 
1762% 


1652% 
2366 


3515 


3543 


3522% 
1790% 
1789% 


1610% 
1872% 


1664% 
2416 


3516 


SEQ 0073 


3544" 


3523% 
1813 
1813x 


1618 
1898 


1682% 
2487 























































HTXDBU 
INBUF 

INIFLG 
INSTER= 
INSTR = 
INSTR2Z 
\OTVEC= 
iSYMOD= 
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001734 
016152 
001172 
104407 
104406 
013470 
000020 
000000 
001153 
001156 
001164 
001160 
017014 
000012 
001102 
013616 
013670 
001110 
001174 
013662 
016117 
015343 
015443 
016256 
015512 
010000 
016057 
004000 


015277 
015556 
016140 
016127 
015250 
015446 
015437 
015537 
015373 
015220 
000400 


015611 
040000 
015152 
015543 
001152 
015205 
016000 
015730 
015657 
001106 
000000 


001000 
017240 
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1352 
1846 
2359 


1357 


1246 


1360 
2366 


2936 


2979 


2484 
1436 


1354 
1848 
2407 


1387 


2716 


1433 
2487 


3054 


1278 


1520 


1425 


1983 - 


2409 
1391 


1523 


J 6 


3058 
1294 


2611 
2476 
2737 


1702 


1427 
2043 
2478 


1430 


1705 


33858 


1307 


2659 


1987 


1514 
2066 
2480 


1480 


1785 


1311 


2666 


2070 


1516 
2126 
2548 


1484 


1855 


1315 


2153 


1571 
2149 
2550 


2553 


1986 


1319 


2236 


1608 
2209 
2603 


2608 


2069 


1330 


2315 


1651 
2232 
2605 


2663 


2152 


2796 


2363 


1696 
2292 
2658 


3558 


2235 


SEQ 0074 


35108 


2553 


2556 


= ee 
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ONCE 002610 1200 1203# 

OPTCLR 001151 7248 =§=61318 

OUT 013030 2782 2784 2786 2790 28028 

OUTCRY 012620 2714 27538 

OUTMUL 003166 1251 1276 12878 

OVRRUN= 040000 7818 9748 

PARAM = 104410 1223 1234 1255 1280 1332 2797 35128 

PARAM1 013522 29358 2956 

PARCSR 001722 10468 1353k 1360k 1426k% 1433k 1515% 1523% 1697% 1705% 1783% 1785% 1847% 1855% 


1988*% 2002k 2071% 2085x 2154*% 2168% 2237k 2251% 2310% 2318% 2358% 2366% 2408% 
2416% 2479% 2487k 2549x% 2656x 2604% 2611% 2659% 2666% 3540% 


PAREN = 001000 7858 9788 

PARER = 010000 7838 976% 

PARERR 013576 2938 2940 2942 2951% 2961 2963 2965 

PART! 013660 2954 29748 

PASCNT 001112 7028 «81176% 2761% 2762 2763 

PFTAB 015144 3277 32838 

PIRQ = 177772 5858 

PIRQVE= 000240 679% 

POPRO = 012600 7588 9518 

POPiSP= 005726 7568 S498 

POP2SP= 022626 7608 953% 

PRO = 000000 602% 

PRi = QO00040 603% 

PR2 = 000100 604% 

PR3 = 000140 €05% 

PR4Y = 000200 6ub# 3532 

PRS = 000240 607% 3531 

PR6 = 000300 608% 

PR7 = 000340 609% 

PS = 177776 582% 583 

PSH = 177776 5838 

PUSHRO= 010046 757% 950% 

PUSH1S= 005746 7558 9488 

PUSH2S= 024646 7598 9528 

PWRVEC= 000024 6748 1144K 1145% 

ROSH 013036 2792k 2802k 28048 2953 

RECACT= 004000 7678 9608 i998 2020 2081 2103 2164 2186 2247 2269 

REPLAY 012524 2733 2739 27418 

RESTAR 015050 3257 32638 

RESTRT 012704 2734 2765 27728 

RESVEC= 000010 669% 

RESOS = 104412 35148 

RETURN 001104 699% 1181k 1338k 1340k 1342 3282 

RING = 040000 7648 9578 

RINTEN= 000100 7728 9658 1371 1381 1405 1458 1470 1474 1498 1796 1816 1819 1881 
1895 1912 1936 

ROTADD 001170 7388 1250% 1262% 1264 1266% 1271 1274% 2728% 2731 2735% 

RPOKE 017152 2568 2580 2584 2623 2635 2639 2678 2690 2694 35588 3568 

RTS = Q00004 7768 9698 

RUNA = &ERRRK U 1 51 140 513 

RUNB = &&2%%% U 1 51 140 513 

RUNC = K&Saa% U 1 51 140 513 

RUND = &&4542% U 1 51 140 513 

RUNE = 4&44%% U 1 51 140 513 

RUNF = 000000 1 51 140 513 
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RUNIT 012430 2719 27258 2732 
RXCSR 001712 10428 1361% 13718 1372 13818 1405" 143k 1445 4451K 1458x 1467 1470K 14748 


1498k 1796% 1811 1816% 1819% 1828 1856x% 1881% 1895x% 1905 1912% 1936% 1946 
1989k 1998 2020 2044 2072% 2081 2103 2127 2155% 2164 2186 2210 2238% 
2247 2269 2293 2322% 2338 2370% 2386 2420% 2456 2491% 2527 2557% 2569 


RXDBUF 001716 10448 1378 1402 1404 1452 1495 1497 1792 1812 1874 1906 1984 2025 
2067 2108 2150 2191 2233 2274 2319 2341 2367 2389 2417 2459 2488 


RXDONE= 000200 7718 964% 

RXERR = 100000 780% 9738 

SAVIT 014372 3092 31138 

SAVPC) §=«001126 711%  2983% 

SAVSP 001116 704% 3256% 3263 

SAVOS = 104411 35138 

SCOP1 = 104405 2034 2117 2200 2283 35098 

SEND = 000020 Ba ny 10008 1520 1702 1794 1852 1987 2070 2153 2236 2315 2363 
SEREC 001150 7238 861314 

SETFLG= 104414 1244 1309 1313 1317 1321 3516% 

SEVEN = 004000 793% 9868 2152 

SEXMIT 001147 7228 =§=©1310 

SHIFT 001122 7098 1282% 1394% 1475k 1487k 1525% 15334 1707k 1715% 2009% 2013% 2092% 


2175x% 2179% 2258k 2262k 2326% 2331% 2332 2336 2374% 2379k 2380 2384 
2449k 2450 2454 2505* 2520% 2521 2525 2566% 2578k 2582k 2621% 2633% 
2¢76% 2688% 2692%  3567% 


SIX = 002000 7928 985% 2069 

SPACNT= 014137 3013% 3032 3035% J045% 

SRO = 002000 7688 9618 

STACK = 001100 573% 1136 1172 1326 3272 

STO = 000010 7758 968% 

STFLG 001173 7448 8 8=1175% 

STKLMT= 177774 5848 

STPSYN= 000400 7708 963% 1856 

sv0s 013700 29878 

SHR 001440 8428 1134 1155% 1157 1163k 1170% 1186 1188*% 1193 1209 1328 2783 
3083 3090 3102 3105 3415 3422 3436 3438 3444 3451 

SWREG 000176 685# 1163 1188 1193 2783 2800 2807 

SWREGL 013040 2795 28058 

SWO = 000001 637% 

Sswoo = 000001 6278 637 1209 

SWO1 = 000002 626% 636 1328 

SWO2 = 000004 625% 635 

SWO3 = 000010 6248 634 

SWO4 = 000020 6238 633 

SWOS = 000040 6228 632 

SWO6 = 000100 6218 631 

SWO7 = 000200 6208 630 

SwOog = 000400 6198 622 

Swo9 = 001000 6188 628 2814 

SWi = 000002 636% 

SW10 = 002000 6178 

SWi1 = 004000 6168 

SWi2 = 010000 6158 

SW13 = 020000 614% 

SWwi4 = 040000 6138 
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SWi5 = 100000 612% 

SW2 = 000004 635% 

SW3 == 000010 6348 

SW4 = 000020 6338 

SWS == 000040 6328 

SW6 = 000100 631% 

SW? =: 000200 630% 

SW8 = 000400 6298 

SW9 = 001000 628% 

SYNCNO 001146 7218 1298k 1302k 1878 2018 2101 2184 2267 

SYNEXT= 020000 789% 9828 1353 1360 1426 1433 1515 1523 1697 1705 1783 1785 2310 
2318 2358 2366 2408 2416 2479 2487 

SYNINT= 030000 788% 9818 1847 1855 1986 2069 2152 2235 

SYNSCH= 000020 7748 9678 1361 1434 1796 1856 1989 2044 2072 2127 2155 2210 2238 
2293 2322 2370 2420 2491 2557 2612 2667 

SYSTST= 014000 8148 10078 1794 1852 

TBITVE= 000014 6708 

TEMP 016214 3018 3273% 3274k 33878 

TKVEC = 000060 677% 

TPVEC = 000064 678% 

TRAPVE= 000034 6768 1142k 1143% 

TRPREG 017410 36048 

TRTVEC= 000014 671% 

TST1 003374 1333 1340 13508 2773 3412 

TST10 005622 17788 

TSTi1 006112 12458 

TST12 006726 19828 

TST13 007232 20658 

TST14 007536 21488 

TST15 010042 22318 

TST16 010346 23088 

TST17 «=©.010544 23568 

TST2 003720 14218 

TST20 010742 24048 

TST21 011206 24758 

TST22 011452 25478 

TST23 011700 26028 

TST24 012126 26578 

TST3 004336 15128 

TST4 004610 15698 

TSTS 004752 16078 

TST6 005110 16508 

TST? 005260 16948 

TTST 016336 34158 

TXCSR 001726 10488 1352% 1354% 1357k 1363% 136% 1387k 1391% 1392% 1393% 1425% 1427% 


1436% 1437k 1480K 1484% 1485k 1486k 1514" 1516% 1520% 1527% 1528% 1531% 
1538% 1540% 1548 1551x 1560% 1571% 1575k% 1579% 1585% 1586 1608%  1612% 
1623% 1651% 1655% 1672 1684% 1696k 1698% 1702% 1709% 1710K 1713K 1714% 
1729 1732 1738% 1745% 1754 1757k 1764% 1782k 1784% 1794% 1846% 1848% 
1882k 1894% 1913k 1927k 1983% 1987% 1992k 1993% 1996% 1997% 2005 2011% 
2038% 2039 2043x 2066% 2070k 2075% 2076% 2079% 2080% 2088 2094%  2095% 
2122 2126% 2149% 2153% 2158% 2159% 2162k 2163% 2171 2177% = =2178% 2204% 
2209 2232% 2236% 2241% 2242% 2245% 2246% 2254 2260% 2261% 2287k 2288 
2309 2311% 2315% 2324% 2325% 2329% 2330% 2357k 2359% 2363% 2372% 23738 
2378% 2407k 2409% 2413k 2422% 2428% 2437k 2443k 2478% 2480K 2484e 2493% 
2508k 2514* 2548% 2550k 2553% 2559% 2560% 2562% 2563% 2603% 2605% 2608% 
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2615% 2617% 2618% 2658% 2660% 2663%  2669% 2670% 2672% 2673% 3545e 3558 3564" 


TXDBUF 001732 10508 1524% 1706% 1739% 1788% 1885% 1926% 1994% 2003% 2077% 2086 2160%  2169% 
22438 8 =2252k 8 2321k 2335% 2369K 2383k% 2419% 2453x 2490% 2524% 3549% 

TXDONE= 000200 8048 9978 

TXINTE= 000100 805% 9988 1575 1579 1585 1612 1616 1623 1655 1684 1720 1745 1757 
1764 1882 1894 1913 1927 

TYPE = 104401 1201 1341 2712 2715 2720 2791 2793 2861 2904 2921 3007 3038 3085 
3093 3129 3146 3148 3151 3153 3157 3164 3228 3278 35038 

TYPOC = 104402 3137 3161 35048 

TYPON = 104404 35068 

TYPOS = 104403 35058 

USER = 000000 8118 10048 

void = 000001 778% 9718 

WROCNT 014134 3011%  3O40K 30438 

ZERO 012436 27268 

SAPTHD 002136 1107 11138 

SASTAT= kxaxxKK U 536 

SATYC O000Z24R 5368 

SATY1 OOOOOOR 536% 

SATY3 O00006R 5368 2546 

SATY4Y  O00016R 5368 3098 

SAUTOB 001434 8398 

SBASE 001602 9178 

SBOADR 001422 B834R 

SBODAT 001426 2368 

SBELL 001516 8088 3085 3113 

SCOW1 001606 9198 

$COW2 001610 9208 

SCHARC 013350 2863% 2873k 2880 2889% 28948 

SCKSWR= XXKKKK U 3509 

SCMTAG 001400 8228 1131 1132 1140 1146 1147 

scmi = 000006 8548 8558 8568 857% 858% 8598 8608 

$CM2 = 000014 8548 8558 856% 8578 858% 8598 8608 

$CM3 = 000006 8528 854 

scm4 = 000006 8608 8618 8628 8638 8648 865% 8668 

SCPUOP 001554 8918 

SCRLF 001523 8708 2862 2897 3093 3113 3129 3148 3153 3157 

SOOWO 001612 9218 

SOOW1 001614 9228 

SO0W10 001636 9318 

$00W11 001640 9328 

$00W12 001642 9338 

$O00W13 001644 9348 

SO0W14 001646 9358 

$00W15 001650 936% 

SODW2 001616 9238 

$ODW3 001620 9248 

SODW4 001622 9258 

SOOWS 001624 9268 

$O0W6 001626 9278 

$00W7 001630 9288 

$00W8 001632 9298 

SO00W9 001634 9308 

SDEVCT 001536 8828 


SDEVN 001604 9188 
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SE = 000002 5348 

SENDAD 012674 1094 27688 

SENV 001546 536 8878 1203 2841 2902 3095 

SENVM 001547 536 888 1168 2843 2848 

SERFLG 001403 8258 1177k 2760% 3080% 3113 3280% 3396 3440 3442 3448k 3472 

SERMAX 001415 8318 1148% 3442 3465k = 3472 

SERROR 014210 1140 30798 

SERRPC 001416 832% 1080 1083 1179k 2759x 3087x% 3088% 3089 3113 3135 3281% 411% 

SERRTB 001652 10228 3143 

SERRTY 014430 31288 

SERTTL 001412 8298 1178%  3086k 3113 

SESCAP 001514 8678 1147k 3108 3110 3113 3464% 

SETABL 001546 8868 

SETEND 001652 9398 1119 

SFATAL 001530 536% 8798 

SFFLG OO00244R 5 368k 

SFILLC 001456 8508 2866 2897 

SFILLS 001455 8498 2897 

SGDADR 001420 833k 

SGDDAT 001424 8358 

SGTSWR= XXKKKK U 3508 

SHIBTS 002136 11148 

SICNT 001404 8268 3455k 3456 3458x 3471 

SINTAG 001435 8408 

SITEMB 001414 830% 3089% 3097 3113 3132 

SLF 001524 2718 2897 3113 

SLFLG QO00243R 5 S68k 

SLPADR 001406 8278 1149% 2773K 2417k 8 B446K 3462k 863467 3471 

SLPERR 001410 8288 1150% 3197 3446 3463k 3471 

SMADR1 001560 9048 

SMADR2 001564 9088 

SMADR3 001570 9118 

SMADRY 001574 9148 

SMAIL 001526 8778 1115 1119 1167 2841 3095 3461 

SMANS1 001556 8988 

SMAMNS2 001562 9068 

SMAMNS3 001566 9098 

SMANSY 001572 9128 

SMBROR 002140 11158 

SMFLG O00242R 5368% 

SMSGAD 001542 536% 8848 

SMSGLG 001544 536% 8858 

SMSGTY 001526 536% 8788 

SMTYP1 001557 8998 

SMTYP2 001563 907% 

SMTYP3 001567 9108 

SmnTyP4 001573 9138 

SMXCNT 016652 3459 34718 

$N = 000000 5348 27048 

SNULL 001454 8488 2868 2897 

SNWTST= 000000 13498 14208 15118 15688 1606 i649 16938 17778 18448 19818 20648 21478 22308 
23078 23558 24038 24748 25468 26018 26568 

SOCNT 015006 3200% 3229% 32428 

SOMODE 015010 3195% 3199% 3204 3207% 3218% 32448 

SOVER 016632 342 3423 3439 3447 3457 34668 


SPASS 001534 8318 1167% 2763% 3453 3472 
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SPASTM 002144 11178 

SPWRON 015012 1144 32488 

SQUES 001522 869% 2897 3113 

SROCHR= XkKKK U 3509 

SRODEC= KXEKEK U 3509 

SROLIN= KXKKKK U 3509 

SROOCT= KKKKKK U 3509 

SREGAD 001460 8528 

SREGO 001462 8548 2992k 2997 

SREG1 001464 855% 2991k 2998 

SREG2 001466 8568 2990% 2999 

SREG3 001470 8578 2989% 3000 

SREGY 001472 858%  2988x 3001 

SREGS 001474 8598  2987k 3002 

SRZA = KKKKKK U 3509 

SSAVRE= KKEKKK U 3509 

SSCOPE 016320 1138 34058 

SSETUP= 000017 11208 1137 1138 1140 1142 1144 1146 1147 1149 3080 3105 3112 3406 

SSTUP = 177777 11208 

SSVLAD 016576 3431 34608 

S$SvPC = 002136 10928 1097 

SSWR = 177400 5258 866 867 868 1146 1147 1149 1150 1351 1422 1513 1570 1608 
1651 1695 1779 1846 1983 2066 2149 2232 2309 2357 2405 2476 2548 
2603 2658 3071 3072 3073 3074 3075 3083 3090 3102 3105 3113 3397 
3398 3399 3400 3401 3422 3434 3436 3437 3440 3441 3442 3449 3450 
3451 3463 3466 3471 

SSWREG 001550 839% 1170 

SSWRMK= 000000 3401 3402 3438 

STESTN 001532 8808  3461% 

STIMES 001512 8668 1146% J449K 3456 3459% = 3471 

STKB 001446 8458 2787 2910 2918 3421 

STKS 001444 8448 2785 2908 3419 

STMPO }8=—6.001476 8608 

STMP1 001500 8618 1383% 1389% 1476k 1482k 2567% 2579% 2583k 2622k 2634% 2638% 2677% 2689% 
2693% 3560% 3572 3582k  3584% 3589 3599%  3601% 

stTmP2 001502 8628  3559% 3561% 3562k 3563% 3564 3572k 3576% 3589% 3593% 

STMP3 001504 863% 3573k 3577k 3580k 3590% 3594% 3597% 

STMPY 001506 864% 

sTmPS 001510 8658 1799k 1803% 1804 1862k 1866% 1867 1886% 1890% 1891 1928% 1932% 1933 

$™N = 000025 5368 1349 13518 1420 1422# §=1511 15138 1568 15708 1606 16088 1649 16518 
1693 16958 1777 17798 §=61844 18468 1981 19838 2064 20668 2147 21498 2230 
22328 2307 23098 2355 23578 2403 24058 2474 24768 2546 25488 2601 26038 
2656 26588 

STPB 001452 8478 2886% 2897 2918% 

STPFLG 001457 8518 2835 2897 

STPS 001450 8468 2884 2897 2916 

STRAP 016654 1142 34808 

STRAPZ2 016676 34918 3502 

sTRP = 000015 34958 8635048 «=693505# 35068 35078 3509 35108 25118 35128 I3Si3e# JBSi4#  35i15# 3516s 
35178 

STRPAD 016710 3485 35028 

$TSTM 002142 11168 

STSTNM 001402 8248 1180% 1335 1338 2758% 3082 3113 3119 3396 3417 3432 400% 3461 
3466 3472 

STYPBN= £222%% U 3507 

STYPDS= £ae44% U 3507 
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STYPE 013072 536 28358 3495 3503 | 
STYPEC 013304 2865 2872 2879 2884% 2885 
STYPEX 013352 2890 2892 28958 
STYPOC 014610 31988 3504 
STYPON 014624 3197 32008 3506 
STYPOS 014564 31938 3505 
SUNIT 001540 8838 
SUNITM 002146 11188 
SUSWR 001552 890% 1205 
SVECT1 001576 9158 
$VECT2 001600 9168 
S$XTSTR 016402 3412 34258 
SOFILL 015007 3194% 3198% 3208 32438 
SYOCAT= KxxKKK U 3092 3422 
: = 017416 5368 570% 6838 686% 691% 7468 7478 8218 872 10788 1092 10938 1095% 
10978 1103 11048 1106 11088 1135 1149 1150 1373 1399 1407 1423 1 


446 
1457, -1468~=— «1492s 1500 —Ss«1543.—s«a1549—Ss«1S78~=— «1887 ~=s«1615 = «1658 = 1673) 1681S :1723 
3113-31678 «©3259 «Ss 3275) = 33868 «= 33888 «= 33908 «= 3471S 3472 


BEGIN 003310 1197 1208 1211 13268 2775 
.CONVR 013764 30078 3515 

. EOP 012354 27108 

. INSTE 013462 29218 3511 

. INSTR 013354 29008 3510 

. INST1) «013374 29048 2913 2923 

. MSG 013376 2787k 2788% 2789 2900% 2905% 
. PARAM 013472 29288 3512 

.PFAIL 015012 1174 32498 3270 

.RESOS 013732 29978 3514 

.SAVOS 013672 29838 3513 

SCOPE 016326 34098 

.SCOP1 013050 28138 3509 

-SETFL 014142 30538 3064 3516 

. START 002152 687 11298 §=1181 2724 

.SASTA= ERKKKX U 536 


.$X = 002136 1103# 1108 
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COMMEN 680% 
ENDCOM 680% 
ERROR hay 1374 1408 1409 1447 1459 1469 1501 1502 1544 1550 1580 1588 1636 1659 


ESCAPE 6808 


NEWTST 6808 1349 1420 1511 1568 1606 1649 1693 1777 1844 1981 2064 2147 2230 2307 
- 


a 
2 
“Oo 
uw 
Ww 
o 
o 
oo 
Oo 
Bid 


RSE TUP 542% 1352 i425 2548 2693 2658 

S 

SCOPE 575% 1350 1421 1612 1569 1607 1650 1694 1778 1845 1982 2065 2148 2231 2308 
2356 2404 2475 2547 2602 2657 2710 

SETTRA 5258 34958 S&04 3505 3506 3509 3510 3511 3512 3513 3514 3515 3516 


STARS 536 680% 817 872 875 1090 1100 1102 1109 1349 1420 1511 1568 1606 1649 
1693 1777 1844 1981 2064 2147 2230 2307 2355 2403 2474 2546 2601 2656 2820 


TSE TUP S43e 1514 1696 1846 2309 2357 2407 2478 


TYPOCT 680% 3135 3159 


$B I NAR 5548 2300 2348 2396 2467 


SBUFFE 5368 3382 

SCABLE 556% 

SCATCH 5288 570 

$CK 535% 2776 

SCLRVE 5348@ 1203 

SCONUR 536# 3004 

SONA 5528 

SEOP 5358 2703 

SGETFL 5348 1242 1307 1311 1315 1319 
SGETPA 5348 1221 1232 1252 1278 1330 
S$GETSY 5348 1289 
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SHEADE 525% 559 
SINSTR 536% 2897 


SMATCH 547% 1968 2051 2134 2217 


SMRR 5418 
SMRRW 539% 
SMRW 540% 
$MSG 536% 3286 


SPOKE 5458 1527 1530 1709 1712 1992 1996 2010 2075 2079 2093 2158 2162 2176 2241 
2245 2259 2324 2328 2372 2376 

SPOKER 5468 1362 1435 2561 2616 2671 

SRCNET 5578 

SRECAC 5458 

SREG 536% 2980 

SRESET 538% 1352 1354 1425 1427 1514 1516 1571 1608 1651 1696 1698 1782 1784 1846 
1848 1983 2043 2066 2126 2149 2209 2232 2292 2309 2311 2357 2359 2407 2409 
2478 2480 2548 2550 2603 2605 2658 2660 

SRXACT 5448 

SSCOPE 5348 3391 

SSCOP1 535% 2810 

SSETFL 5348 3047 

SSETVE 529% 680 

SSTART 5348 8 1121 

SSTRIP 5518 

SSYMBO 5258 748 941 

SSYNCR 5478 2557 2612 2667 


STSTNO 534e# 81349 1420 1511 1568 1606 1649 1693 1777 1844 1981 2064 2147 2230 2307 
2355 2403 2474 2546 2601 2656 


SWORDO 5478 2538 2593 2648 


SSCMRE 8158 854 855 856 857 858 £59 
SSCNTM 815% 860 861 862 863 864 865 


SSNEWT 680# 1349 1420 1511 1568 1606 1649 1693 1777 1844 1981 2064 2147 2230 2307 
2355 2403 2474 2546 2601 2656 
SSSET 34958 3504 3505 3506 3509 3510 3511 3512 3513 3514 3515 3516 
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SERRT 5258 3121 
SP OWE 5258 

SSCOP 525% 3391 
STRAP S258 3472 
_ STYPE 525% 2818 
STYPO 525% 3168 


ABS. 017416 000 


ERRORS DETECTED: 0 


OZOUVB . OZDUVB/SOL /CRF =DZ20UV1/EQ: RUNF. O2DUV2, D2DUVB 
RUN-TIME: 21 12 1 SECONDS 

PUN-TIME PATIO: 270/34=7.8 
CORE USED. 3OK (59 PAGES) 





